Задание:
Составить программу на языке Паскаля: Даны а,b,c-целые числа. Если они большн 0-вычислите сумму их квадратов; а если хотя бы одно из них четно-вычислите ихсумму и произведение.
Решение:
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.
Знаете другой ответ?