кто может напишите программы на паскаль, пожалуйста
Answers & Comments
abiturent
15)program 15; uses crt; var a, b, c:integer; otv:real; begin readln (a, b, c); if (a> 0) and (b> 0) and (c> o ) then begin writeln (sqrt (a), sqrt (b), sqrt (c)); end else if (a=0) or (b=0) or (c=0) THEN writeln ('0') else begin otv:=a*b*c; write (otv); END; readln end.
Answers & Comments
uses crt;
var a, b, c:integer;
otv:real;
begin
readln (a, b, c);
if (a> 0) and (b> 0) and (c> o ) then begin
writeln (sqrt (a), sqrt (b), sqrt (c));
end else if (a=0) or (b=0) or (c=0) THEN writeln ('0') else begin otv:=a*b*c; write (otv); END;
readln
end.