Редактирование рисунка. Урок 2 Исключи лишнее
ВСТАВИТЬ
ВЫДЕЛИТЬ
КОПИРОВАТЬ
ВЫРЕЗАТЬ
ЗА ВЕРНЫЙ ОТВЕТ
168
188
Ответы на вопрос:
program test; var x, temp: integer; flag: boolean; begin write('введите целое четырёхзначное число: '); read(x); flag: =false; while x < > 0 do begin temp: =x mod 10; if (temp = 2) or (temp = 7) then begin flag: =true; break; end; x: =x div 10;
end; if flag then writeln('2 или 7 входят в число.') else writeln('2 или 7 не входят в число.'); end.
Популярно: Информатика
-
DeNcHiK123st30.06.2023 01:56
-
rassvet112323.03.2020 04:02
-
manje26.09.2021 14:17
-
Dizelshop21.04.2022 10:59
-
eromadima17.10.2020 14:58
-
новичок58623.06.2021 10:43
-
Milana246128.12.2020 00:37
-
sofiafrog200401.07.2020 04:54
-
апнг118.05.2020 11:08
-
Ekaterina255807.02.2022 17:48