Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
JesusVl
14.03.2023 16:17 •
Информатика
Дано натуральное число n. выяснить, входит ли цифра 7 в запись числа n2.( решение в паскале) буду
Показать ответ
Ответ:
alinks792
01.10.2020 11:43
var n:longint;
f:boolean;
begin
write ('N = ');
readln (n);
f:=false;
while (n<>0) do
begin
if (n mod 10)=7 then
begin
f:=true;
break;
end;
n:=n div 10;
end;
if f then writeln ('YES') else writeln ('NO');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
agargo228
08.09.2021 05:18
Подпишите, какой элемент текста изображен *1С че начатьНрава влааna SARDANA1213чтения21Bunu APACH21.1 БАусенф рани212Неонорые12CADIACAR2 Заклоне...
adil78245
19.07.2020 08:32
ОЧЕНЬ ОЧЕНЬ ОЧЕНЬ ОЧЕНЬ...
makslitovchenk
26.08.2020 08:56
ДЕЛАТЬ НА ЯЗЫКУ PYTHON!...
Черныйкотик007896
22.01.2021 20:08
Составить программу на Паскале для решения следующей задачи: программа запрашивает натуральное число от 1 до 10 (входящая переменная, например N) и выводит на экран таблицу умножения...
РоузХз
08.01.2021 20:17
Задание 4. Прочитайте пункты учебника «О чем рассказала бабушка» и «Чему учит школа сегодня». Заполните таблицу...
Гулбахар
16.06.2022 23:26
563. Знайдіть значення виразу: 1) х² - 14, якщо x = 5; 7; 18; 2) 2у² + 13, якщо у = 6; 8; 9; 100. ...
goe1
16.03.2021 09:58
Ваша Асоціація зі словом війна ...
4ev43yi3
26.01.2023 18:38
Закінчення -ізм -изм -цтво...
dashvali
06.05.2023 13:29
5.Екі өлшемді графика мен үш өлшемді графиканың айырмашылығын қандай? надо о...
flowersemenova2
23.02.2021 22:01
5.2.ABCD төртбұрышының периметрі 12 см-ге тең екені белгілі болса ,1 пункттегі мәліметтерді пайдаланып ,тендеу құрастырыңыз берем памаги 7 сынып...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
f:boolean;
begin
write ('N = ');
readln (n);
f:=false;
while (n<>0) do
begin
if (n mod 10)=7 then
begin
f:=true;
break;
end;
n:=n div 10;
end;
if f then writeln ('YES') else writeln ('NO');
end.