Решить на языке паскаль: верно ли, что в числе есть цифра 5

Tyshkanchik228 Tyshkanchik228    3   10.03.2019 06:50    1

Ответы
ВаЛеРа06 ВаЛеРа06  24.05.2020 14:43

var a,n:integer;
begin
write('Введите число: ');
readln(n);
repeat
a:=n mod 10;
n:=n div 10;
until (n=0) or (a=5);
if a=5 then write('В этом числе есть цифра 5') else write('В этом числе нет цифры пять')
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика