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

Question

Answer 1

65

demmm

16 марта 2023

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.

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

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

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