Введите с клавиатуры два числа a и b . если оба числа четные , то вычислите их сумки выведите результат на экран .если оба нечетные то найдите произведение этих чисел и выведите результат . иначе, увеличить все числа в пять раз и выведите результаты

280

368

Посмотреть ответы 2

Ответы на вопрос:

stacezoloto

Информатика

4,5(7 оценок)

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-ое число четное.