Предмет: Информатика,
автор: Dino1337
Составить по алгоритму программу на языке программирования Pascal
Приложения:
Ответы
Автор ответа:
0
program q1;
var x,y,z,q: real;
begin
readln(x);
readln(y);
q:=y*y+x*x;
if(q<1) then do z:=q;
if(q>1) then do z:=0.5;
if(q=1) then do z:=x+y;
writeln(z);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: Dannnnk
Предмет: Қазақ тiлi,
автор: zhansabazarkhan
Предмет: Обществознание,
автор: axmedgasanov57
Предмет: История,
автор: Anastasia603
Предмет: Обществознание,
автор: анна302