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.