Обсуждение @ 1131. Копирование @ Timus Online Judge

Failed Peter why wa?only 16 lines.help me! [3] // Задача 1131. Копирование 13 июл 2003 14:27

[code deleted]

Edited by moderator 24.11.2019 12:59

Crazy Lemming A hint. [2] // Задача 1131. Копирование 13 июл 2003 21:36

> [code deleted]

You've made a little mistake. To correct this mistake you only need
to embrace some part of your program in {}.

Edited by moderator 24.11.2019 13:00

Failed Peter Got it,thanks. [1] // Задача 1131. Копирование 17 сен 2003 14:47

sqybi Mine is also 16 lines(Pascal) // Задача 1131. Копирование 14 янв 2006 17:22

Mine is also 16 lines, but i have a Time Limit Exceeded.
Program Copying_1131;
Var
n, k, s, a, t: Longint;
Begin
ReadLn(n, k);
s := 1;
a := 1;
t := 0;
While s < n Do Begin
    Inc(s, a);
    If s > k Then a := k
             Else a := s;
    Inc(t);
End;
Write(t);
End.

Обсуждение задачи 1131. Копирование