Помогите написать программу ** паскале.Надо чтобы введенное число оканчивалось ** 7.

Question

Помогите написать программу на паскале.Надо чтобы введенное число оканчивалось на 7.

Answer 1

Var a:integer;
begin
repeat
  readln(a);
  if (a - (a div 10)*10) <> 7 then writeln ('неверно');
until (a - (a div 10)*10) = 7;
writeln(a);
end.

Comments

попробуйте исправленный вариант

---

можно еще кое что

---

чтобы если число не оканчивается на 7 писало что неверно

---

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

---

Посмотри исправленный вариант

---

спасибо,вот теперь еще все это понять

---

то что в скобках

---

div это деление нацело?

---

a div 10 - челая часть от деления на 10

---

спс