Информатика, опубликовано 2018-08-22 23:13:44 by Гость
Определить, встречается ли в введенном числе хотя бы одна цифра больше 3, но меньше 8
Ответ оставил Гость
Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(za:=a div 10;
end;
writeln(q);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.