Помогите написать программу на паскале.Надо чтобы введенное число оканчивалось на 7.
Помогите написать программу на паскале.Надо чтобы введенное число оканчивалось на 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.
Не нашли ответ?
Похожие вопросы