Информатика, опубликовано 2018-08-22 19:48:05 by Гость
Задача "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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на