Введите с клавиатуры два числа a и b . Если оба числа четные , то вычислите их сумки выведите результат на экран .если оба нечетные то найдите
10-11 класс
|
произведение этих чисел и выведите результат . Иначе, увеличить все числа в пять раз и выведите результаты
uses crt;
var a, b, S, M, New, New1:integer;
begin
write('a = '); read(a);
write('b = '); read(b);
S:=a+b; M:=a*b; New:=5*a; New1:=5*b;
if ((a mod 2)<>0) and ((b mod 2)<>0) then write('M = ',M)
else if ((a mod 2)=0) and ((b mod 2)=0) then write('S = ',S);
if ((a mod 2)=0) and ((b mod 2)<>0) then write('New = ',New);
if ((a mod 2)<>0) and ((b mod 2)=0) then write('New1 = ',New1);
end.
Описание:
S=сумма чисел. M=произведение чисел. New=увеличение числа в 5 раз,если 1-ое число четное. New1=увеличение числа в 5 раз,если 2-ое число четное.
Другие вопросы из категории
расстановки этих книг
переменной n вводится с клавиатуры).
Рекомендуемый вид экрана:
Введите значение n:
Читайте также
выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
их суммы и выведите результаты на экран. Если все числа отрицательны, то каждое сделайте равным наименьшему и выведите результаты. Иначе, К приравняйте к 10, а Л - к 15 и выведите результаты
результаты на экран. Если они равны, то найдите и выведите удвоенную сумму этих чисел.