Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
densto0
14.09.2021 06:16 •
Информатика
Решить две ) 1)дано число а, узнать чётно оно или нет; 2)даны 2 пакета с рисом 1-ый пакет m кг, а 2-ой пакет n кг, узнать наибольший пакет (решать разветвлённым алгоритмом)
Показать ответ
Ответ:
nparshina14
05.10.2020 16:24
1)
var a:integer;
begin
write('a = ');
readln(a);
if a mod 2 = 0
then writeln(a,' - четное')
else writeln(a,' - нечетное');
end.
Пример:
a = 15
15 - нечетное
2)
var m,n:integer;
begin
write('m = ');
readln(m);
write('n = ');
readln(n);
if m>n
then writeln('1-ый пакет тяжелее')
else writeln('2-ой пакет тяжелее');
end.
Пример:
m = 12
n = 10
1-ый пакет тяжелее
0,0
(0 оценок)
Популярные вопросы: Информатика
vovaonuchko
18.06.2021 01:37
6класс сколько байтов составляют 1 гб...
katyatop12
11.11.2020 23:41
ПРОГРАММИРОВАНИЕ ! Тема:«Двумерные массивы» Указания к решению: 1) Для проверки на соответствие элементов массива условию создать функцию. 2) Для вывода массива создать функцию,...
tarasyukov
09.12.2020 01:47
Заданы стороны треугольника a, b, c. определить является ли он равносторонним. написать программу на языке паскаль....
daryatabuewa
11.01.2022 22:14
Составьте из символов a, b и c все возможные идентификаторы, состоящие из одного, двух, трёх символов (символы могут повторятся) и укажите их общее количество....
babkaaalina
18.05.2020 03:35
Найти значение логической переменной: y= (a and not b) and (not c or b), при a=1, b=1, c=1...
pashalol3
26.05.2021 13:00
Положить под сукно его было легче всего - подлежащее?...
NICHEGOHOROSHEGO1
18.09.2020 05:40
Сравни; 2ц50кг 350кг 8т240кг 2840кг...
Nik10234
26.05.2021 13:00
Из чисел 21,19,30,25,3,9,15,6,27 подбери такие три числа .сумма которых равна 50...
loto0192
01.05.2021 20:00
27а. прочитайте, какими видят временагода поэты....
опшпищи
26.05.2021 13:00
Почему во дворе феодалов в одном месте травы не косили?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
write('a = ');
readln(a);
if a mod 2 = 0
then writeln(a,' - четное')
else writeln(a,' - нечетное');
end.
Пример:
a = 15
15 - нечетное
2)
var m,n:integer;
begin
write('m = ');
readln(m);
write('n = ');
readln(n);
if m>n
then writeln('1-ый пакет тяжелее')
else writeln('2-ой пакет тяжелее');
end.
Пример:
m = 12
n = 10
1-ый пакет тяжелее