Вопрос по информатике:
1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от деления, иначе остаток от деления. Пожалуйста с понятным решением..
- 12.01.2018 14:05
- Информатика
- remove_red_eye 2853
- thumb_up 56
Ответы и объяснения 1
1)
var
a,b:integer;
begin
readln (a,b);
if (a mod 2 =0) and (b mod 2=0) then writeln (a+b);
if (a mod 20) and (b mod 20) then writeln (a-b);
end.
2)
var
a,b:integer;
begin
readln (a,b);
if (a+b>1) then writeln (a mod b)
else
writeln (a div 10);
end.
- 13.01.2018 17:01
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.