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

Question

Фатьян

5 января, 18:40

+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.