Sasaralob
6 год назад
Составить по алгоритму программу на языке программирования Pascal
ОТВЕТЫ
Иволгин
Aug 7, 2019
Program q1;
var x,y,z,q: real;
begin
readln(x);
readln(y);
q:=y*y+x*x;
if(qlt;1) then do z:=q;
if(qgt;1) then do z:=0.5;
if(q=1) then do z:=x+y;
writeln(z);
end.
48
Смежные вопросы:
