) Найти и выдать ** печать все трехзначные числа, которые при умножении ** 2...

Question

) Найти и выдать на печать все трехзначные числа, которые при умножении на 2 заканчиваются цифрой 8, а при умножении на 3 - цифрой 4. При отсутствии таких чисел - сообщить об этом
задача на решении в паскаль

Comments

На каком ЯП написать?

---

на паскаль

Answer 1

var
    i, k: integer;
begin
i:= 100;
k:= 0;
 
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.
 

Comments

спасибо большое

---

Если я тебе помог, отметь, если тебе не сложно, мой ответ как лучший.

---

окей, но почему-то программа не запускается

---

Секунду.

---

Так должно работать.

---

странно, программа все равно не запустилась

---

У меня всё работает.

---

не правильно использован оператор

---

все заработала, спасибо

---

Если тебе не сложно, отметь, пожалуйста, решение как лучший ответ.