Вопрос по информатике:
Введите с клавиатуры два числа a и b . Если оба числа четные , то вычислите их сумки выведите результат на экран .если оба нечетные то найдите
произведение этих чисел и выведите результат . Иначе, увеличить все числа в пять раз и выведите результаты. Решение, которое уже есть на сайте не писать
- 26.05.2016 15:18
- Информатика
- remove_red_eye 7354
- thumb_up 11
Ответы и объяснения 1
Var
a,b,c:integer;
begin
readln(a,b);
If (a mod 2 = 0) and (b mod 2 = 0) then
begin
c:=a+b;
writeln('Сумма= ',c);
end
else
if (a mod 2 = 1)and (b mod 2 =1)the
begin
c:=a*b;
writeln('Произведение= ',c);
end
else
begin
a:=a*5;
b:=b*5;
writeln('A=',a,' B= ',b);
end;end.
- 27.05.2016 13:09
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.