Вводиться натуральное число n вывести за числом n еще одно такое же. Решать через while. Язык паскаль. приведу пример задачи, ввожу число N 999 оператор врайтлайн выводит 999999.

Question

Федюха

11 сентября, 09:03

+4

Ответы (1)

Знаете ответ на вопрос?

Николаич · Answer 1

Var n, i: integer;

begin

i : = 0;

readln (n) ;

while i < 2 do

begin

write (n) ;

i : = i + 1;

end;

end.