две задачи на Паскале: 1) Вывести все натуральные числа, кратные 5, но которые не превышают число N, введенное пользователем с клавиатуры 2) есть ли среди 15 чисел нулевые элементы

[Лю***]

Составить алгоритм и написать решение задачи на Паскале: Вывести все натуральные числа, кратные 5, но которые не превышают число N, введенное пользователем с клавиатуры.

Составить алгоритм и написать решение задачи на Паскале: Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от -10 до 10 нулевые элементы.

[newerow1989]

var n,i:integer;
begin
   Write('n = '); Readln(n);
   For i:=1 to n do
      If i mod 5=0 then
         Writeln(i);
   Readln;
end.

const n=15;
      a=-10;
      b=10;
var i,k:integer;
    nol:boolean;
begin
   Randomize;
   i:=0;
   nol:=false;
   Repeat
      i:=i+1;
      k:=a+Random(b-a+1);
      Writeln(k);
      If k=0 then
         nol:=true;
   Until i>=15;
   If nol then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.