Вопрос по информатике:
Помогите решить две задачи )
1)дано число а, узнать чётно оно или нет;
2)даны 2 пакета с рисом 1-ый пакет m кг, а 2-ой пакет n кг, узнать наибольший пакет
(решать разветвлённым алгоритмом)
Пожаловаться
- 10.10.2015 00:52
- Информатика
- remove_red_eye 12017
- thumb_up 7
Ответы и объяснения 1
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-ый пакет тяжелее
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-ый пакет тяжелее
Пожаловаться
- 11.10.2015 17:35
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы