Program Audan;
var
a,b:integer;
c:real;
begin
writeln('a,b=?');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln('c=',c);
end.
S:real;
S=(a*b)/2;
writeln('S=',S);
128k сұрақ
322k жауап
153k пікір
72.7k қолданушы