Задача "for" pascalABC.net Даны целые числа K и N (N больше 0). Вывести N раз число K.

Задача "for" pascalABC.net Даны целые числа K и N (N>0). Вывести N раз число K.
Гость
Ответ(ы) на вопрос:
Гость
Program n1; var K,i: integer; N: byte; begin write('введите число: '); readln(K); write('введите кол-во раз: '); readln(N); if(N>0) then for i:=1 to N do writeln(K); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы