Даны трёхзначные числа, если число заканчивается ** 4 вывести его ** экран

Question

Даны трёхзначные числа, если число заканчивается на 4 вывести его на экран

Comments

Случайно

---

Начинается программа так:

---

Program o

---

var

---

Begin

---

На первый вопрос ответьте: массив, или две-три переменные?

---

Две-три переменные

---

VarA,B,C:integer;BeginRandomize;A:=random(900)+100;B:=random(900)+100;C:=random(900)+100;if A mod 10 = 4 then Write(A,' ');if B mod 10 = 4 then Write(B,' ');if C mod 10 = 4 then Write(C,' ');End.

---

Три, случайно заданные переменные. Как сказали - так и сделано.

---

Спасибо

Answer 1

Выводит все 3значные числа которые отвечают условию

var
    i: integer;

begin
    for i := 100 to 999 do
        if i mod 10 = 4 then
            write(i, ' ');
end.