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

Исмаил
Jul 17, 2019
Var
n, i: integer;
begin
i := 0;
readln(n);
while i lt; 2 do
begin
write(n);
i := i + 1;
end;
end.
begin
i := 0;
readln(n);
while i lt; 2 do
begin
write(n);
i := i + 1;
end;
end.
198
Смежные вопросы: