Задачи по Pascal. Даны целые числа К и N(N>0), вывести N раз число K.

Условие задачи :  Даны целые числа К и N(N>0). Вывести N раз число K.

Сложность : легкая .

В чем заключается задача ? Нам дано два целых числа, допустим это будет N = 5 и K = -1, и мы должны вывести число -1 пять раз, т.е. вывести N раз число K.

Числа N и K у нас будут случайными т.е. через функцию random(), подробнее про эту функцию вы можете узнать (тут).

Первое что мы сделаем это создадим каркас и объявим переменные :

uses crt;
var
   N , K, i : integer; // i для цикла
begin
end.

Теперь мы должны присвоить нашим переменным какие-то случайные значения :

begin
   randomize;
   N := random(20);
   K := -100 + random(200);
end.

Т.к. N у нас это кол-во выводов нашего числа K, N не может быть меньше 0, в нашем случае от 0 до 19.

Теперь что вывести K несколько раз, нам понадобиться цикл for в котором мы просто будем выводить число :

for i:=1 to N do 
   writeln(K);

Еще раз скажу что N — это сколько раз у нас будет выведено число K.

Можно также написать сколько раз было выведено наше число :

writeln('Число ', K , ' было выведено ', N , ' раз');

Вот и вся задача.

Весь код программы :

uses crt;
var
   N , K, i : integer; // i для цикла
begin
   clrscr; // очищаем экран
   randomize;
   N := random(20);
   K := -100 + random(200);

   for i:=1 to N do 
      writeln(K);

   writeln('Число ', K , ' было выведено ', N , ' раз');
   readln; // чтобы программа не закрывалась
end.