Предмет: Информатика,
автор: Dino1337
Составить по алгоритму программу на языке программирования Pascal.
Приложения:
Ответы
Автор ответа:
0
Program n6;
var x,y,v: real;
begin
readln(x);
readln(y);
if(x>1) and(y>1) then do v:=x+y;
if(x>1) and(y<=1) then do v:=x-y;
if(x<=1) and(y>0) then do v:=y-x;
if(x<=1) and(y<=0) then do v:=-x-y;
writeln(v);
end.
Интересные вопросы
Предмет: Українська література,
автор: Аноним
Предмет: География,
автор: blin4ik70
Предмет: Математика,
автор: roma52010
Предмет: Физика,
автор: ЄЄЄСTPELOKЭЭЭ
Предмет: География,
автор: FLAYELZA