Question

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

Answer 1

var n, i: integer;
 begin
  i := 0;
  readln(n);
  while i < 2 do
  begin
    write(n);
    i := i + 1;
  end;
end.

Answer 2

var n, i: integer;
begin
i := 0;
readln(n);
while i < 2 do
begin
write(n);
i := i + 1;
end;
end.