Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
katyaloginova2p01fy1
27.02.2021 14:49 •
Информатика
Как написать в паскале? дано целое трехзначное число n. верно ли, что в нем есть хотя бы одна цифра 7?
Показать ответ
Ответ:
barbariskaulyaЮлия
01.10.2020 13:42
var
n: integer;
begin
readln(n);
if (n mod 10 = 7) or (n div 100 = 7) or ((n div 10) mod 10 = 7) then writeln(true)
else writeln(false);
end.
0,0
(0 оценок)
Ответ:
gadjimira
01.10.2020 13:42
Program new
var
begin
for i =10 to 1000 do
begin
if x mod i = 7 then
written('yeah')
end;
i:=i*10
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kristinasaib1
09.11.2020 11:59
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в...
Darya789
17.01.2022 14:56
В прямоугольной матрице поменять местами строки содержащие максимальный и минимальный ее элемент. На языке C или блоксхема...
polyhovichvikto
27.08.2021 07:38
Число 127 10 в двоичной системе счисления записывается как.. ...
panda2438
27.08.2021 07:38
сообщение занимает 4 страницы по 64 строки и содержит 5120 байтов информации. сколько символов в строке если при составлении этого сообщения использовали 32-символьный алфавит...
mikc2
19.03.2022 05:05
Вводится последовательность из n положительных целых чисел. найти наименьшее число среди чётных элементов последовательности....
tamila2002саша2004
06.02.2022 08:02
Напишите на языке Паскаль программу вычисления по формуле: где a,b - целые числа...
Еля24
05.07.2022 23:20
Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 171? var n, s, d: integer; begin readln(d); n : = 27; s : = 12; while s...
SolkePT
24.12.2020 18:42
Впишите в рамки все извесные вам устройства которые могут быть подключены к компьютеру...
ksdkjxddjcksmsfmkf
02.02.2023 21:51
1939 жылы Кенді Алтайды және түсті металь кәсіп орындарын электр қуатымен қамтамасыз ету үшін салына бастаған құрылысты көрсет жауап керек...
lika771
08.02.2023 12:30
NaOH+H3PO4-Na3PO4+H2O Расставить коэффициент...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n: integer;
begin
readln(n);
if (n mod 10 = 7) or (n div 100 = 7) or ((n div 10) mod 10 = 7) then writeln(true)
else writeln(false);
end.
var
begin
for i =10 to 1000 do
begin
if x mod i = 7 then
written('yeah')
end;
i:=i*10
end;
end.