№1 Вывести ** экран числа в диапазоне от 10 до 100, которые кратны четырем. №2 Найти...

Question

№1 Вывести на экран числа в диапазоне от 10 до 100, которые кратны четырем.

№2 Найти сумму чисел, которые оканчиваются на пять, меньше 10 и больше (-10).

№3 Подсчитать количество трехзначных чисел, которые начинаются на цифру «2» и вывести эти числа на экран.

Напишите пожалуйста программу на языке паскаль

Answer 1

Решение для данной задачи

Comments

Первая задача

---

program psck;

var

i : integer;

begin

for i:=10 to 100 do if i mod 4 = 0 then writeln(i);

end.

---

Вторая задача

---

не понятно условие

---

Третья задача

---

program psck;

var

i, count : integer;

begin

count:=0;

for i:=100 to 999 do if i div 100 = 2 then
begin
count:=count+1;
writeln(i);
end;
write('Количество данных чисел - ',count);

end.

---

спасибо, даже за эти 2 задачи