Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Sofiamarfiya
31.08.2021 08:17 •
Информатика
Напишите программу которая проверяет является ли введенное натуральное число положительным кратным 7 ( на языке паскаль ) 40
Показать ответ
Ответ:
diana290510
05.10.2020 07:01
Program ch;
var a: integer;
begin
readln(a);
if(a mod 7=0) and (a>0) then writeln('yes');
else writeln('no');
end.
0,0
(0 оценок)
Ответ:
adamouzr
05.10.2020 07:01
Var x:integer;
begin
read(x);
if(x<=0)then write('Не положительное')
else if(x mod 7 <>0)then write('Не кратно 7')
else write('Положительное и кратно 7');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ДядяВасяПетросян
06.01.2020 09:08
Застели пол клетчатое поле паркетом из двух любых фигур...
лоххз
13.08.2021 03:07
Необходимо, чтоб программа выводила на экран вот такую последовательность: 7 14 21 28 35 42 49 56 63 70 77 84 91 98 Python...
ChrisUnte
10.05.2023 22:01
Как построить прямоугольный треугольник по катету и острому углу...
2003mariasMaria
20.10.2020 20:28
Ехать на большой скорости, петешествовать по сибири, из приоткрытой двери...
borschteeeeee
13.08.2021 09:39
Определите азимут, по которому надо идти от родника на высоте 142,0 до дома лесника....
SDimassYT
13.08.2021 09:39
Составить слово по языку из этих букв awsseco...
Jkbts
13.08.2021 09:39
Округли до единиц тысяч: 4756,8743,3214....
ritakosyanenko
13.08.2021 09:39
Что такое наследственность в биологии?...
сема10
13.08.2021 09:39
Correct the sentences. use the negative and affirmative form of be.jack is 12. jack isn`t12. he`s 11. 1. his mum is from the usa. 2. jack is in manchester now. 3. jack is a rugby...
TruckThorEast
13.08.2021 09:39
Вкиоске было арбузов на 20 шт.больше,чем дынь.на сколько больше станет арбузов,чем дынь,если купят 7 дынь?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: integer;
begin
readln(a);
if(a mod 7=0) and (a>0) then writeln('yes');
else writeln('no');
end.
begin
read(x);
if(x<=0)then write('Не положительное')
else if(x mod 7 <>0)then write('Не кратно 7')
else write('Положительное и кратно 7');
end.