Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.