Вопрос по информатике:
Дано четырехзначное целое число. Определить имеется ли в записи числа цифра 3 паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.09.2017 08:14
- Информатика
- remove_red_eye 12922
- thumb_up 48
Ответы и объяснения 2
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.
- 20.09.2017 00:03
- thumb_up 16
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.
- 21.09.2017 11:21
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.