Задача "for" pascalABC.net
Даны целые числа K и N (N>0). Вывести N раз число K.
Даны целые числа K и N (N>0). Вывести N раз число K.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.