Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
Var n, i: integer;
 begin
  i := 0;
  readln(n);
  while i lt; 2 do
  begin
    write(n);
    i := i + 1;
  end;
end.
198
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам