Решаем задачи Абрамян на Паскале. For1

For1. Даны целые числа $$K$$ и $$N$$ ($$N > 0$$). Вывести $$N$$ раз число $$K$$.

Решение:

1

2

3

4

5

6

7

8

9

10

program For1;

var

K,N, i:Integer;

begin

Write('Введите N: ');

Readln(N);

Write('Введите K: ');

Readln(K);

For i:=1 to N do Writeln(K);

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии:

Добавить комментарий Отменить ответ

➤