Составить программу на языке Паскаля: Даны а,b,c-целые числа

Question

Составить программу на языке Паскаля: Даны а,b,c-целые числа. Если они большн 0-вычислите сумму их квадратов; а если хотя бы одно из них четно-вычислите ихсумму и произведение.

Answer 1

53

troebui

23 августа 2022

var a,b,c: integer; begin readln (a,b,c); if (a>0) and (b>0) and (c>0) then writeln (sqr (a)+sqr (b)+sqr (c); if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln ('Сумма: ',a+b+c,', произведение: ',a*b*c); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: