Знатоки алгоритмов, помогите! Нужно составить алгоритм по блоксхеме и написать, для чего нужна данная программа. Очень надеюсь на вашу помощь.
92
ОТВЕТЫ
Var
x,y,z:real;
begin
Read(x,y);
z:=0;
if xgt;0 then
if ygt;0 then z:=2 else z:=1
else z:=0;
Writeln(z)
end.
Если х положительно, то программа выводит количество положительных среди x и y (1 или 2). Если х ≤ 0, программа выводит 0.
x,y,z:real;
begin
Read(x,y);
z:=0;
if xgt;0 then
if ygt;0 then z:=2 else z:=1
else z:=0;
Writeln(z)
end.
Если х положительно, то программа выводит количество положительных среди x и y (1 или 2). Если х ≤ 0, программа выводит 0.
72
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Zaginn
Информатика, Паскаль. 60 баллов. Даны описания: type Vector = ...
2019-05-24 09:10:19
Аркадий
Напишите два варианта программы которая вводит координаты точки на ...
2019-05-24 09:06:57
Bathris
Якими командами можна перевести текстове подання числа безпо середньо ...
2019-05-24 09:05:44
Коган
Решите 3 4 5 6
заранее спасибо
...
2019-05-24 09:04:56