Вешняков
4 год назад
Написать программу на паскале
ОТВЕТЫ
Simona
Oct 24, 2020
Program prog;
Uses crt;
var x,y,r: real;
begin
clrscr;
write('x = ');
readln(x);
write('y = ');
readln(y);
if (x>=y) then
r:=sqr(x)-sqr(y)
else
r:=sqr(x)+sqr(y);
writeln('r = ',r:0:3);
readln;
end.
Uses crt;
var x,y,r: real;
begin
clrscr;
write('x = ');
readln(x);
write('y = ');
readln(y);
if (x>=y) then
r:=sqr(x)-sqr(y)
else
r:=sqr(x)+sqr(y);
writeln('r = ',r:0:3);
readln;
end.
908
Смежные вопросы: