Дано четырехзначное целое число. Определить имеется ли в записи числа цифра 3 паскаль
Дано четырехзначное целое число. Определить имеется ли в записи числа цифра 3 паскаль
Гость
Ответ(ы) на вопрос:
ГостьVar
s:string; i,c:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(s);
if length(s) = 4 then Begin
for i:= 1 to 4 do
if s[i]='3' then c:=1;
if c=1 then write('Тройка есть') else write('Троек нет');
End else write('Повторите ввод числа');
End.
ГостьVar
n : Integer;
f : Boolean;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
f:=False;
While (n>0) do
Begin
f:=f or ((n mod 10)=3);
n:=n div 10;
end;
if f then writeln('Тройка есть') else writeln('Троек нет');
End.
Не нашли ответ?
Похожие вопросы