Решение задач по теме "For - цикл с параметром в Pascal"

Решение задачи №1

program one;

var K,N,i: integer;
begin
     write('K = ');
     readln(K);
     write('N = ');
     readln(N);
     for i:=1 to N do
         writeln(K);
end.

Назад