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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

спс