Даны три действительных числа. Возвести в квадрат те из них > 5

Задание:

Даны три действительных числа. Возвести в квадрат те из них > 5

Решение:

var a,b,c: Extended; begin Readln (a,b,c); if a>5 then a: =a*a; if b>5 then b: =b*b; if c>5 then c: =c*c; Writeln (a,',b,',c); end.

Знаете другой ответ?

Отправить свой ответ