Вопрос по информатике:
Дано трехзначное число. Верно ли, что среди его цифр есть равные 7?
- 15.03.2016 15:01
- Информатика
- remove_red_eye 2640
- thumb_up 41
Ответы и объяснения 2
var i,n:integer;
seven:boolean;
begin
readln(n);
for i := 1 to 3 do begin
if n mod 10 = 7 then begin
seven:=true;
break;
end;
n:= n div 10;
end;
if seven then writeln('есть равные 7 ')
else writeln('кратных 7 нет');
end.
- 16.03.2016 12:36
- thumb_up 33
//Версия 3.3, сборка 1627
begin
write(abs(ReadInteger).ToString.Where(x->x='7').Count0);
end.
- 17.03.2016 00:34
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.