Question

Паскаль.
1. Вывести в столбик все двузначные числа. (1 цикл, 1 переменная)
2. Из тех же чисел вывести только те, что заканчиваются на 5.
3. Вывести в ряд 15 рандомных чисел от 10 до 30.

Answer 1

1.
var i:integer;
begin
for i:=10 to 99 do writeln(i);
end.

Результат:
10
11
12
...
98
99

2.
var i:integer;
begin
for i:=10 to 99 do
 if i mod 10=5 then writeln(i);
end.

Результат:
15
25
...
95

3.
var i:integer;
begin
for i:=1 to 15 do
  write(random(21)+10,' ');
end.

Пример:
25 19 12 11 25 27 30 19 21 19 15 10 14 22 22