Знатоки алгоритмов, помогите! Нужно составить алгоритм по блоксхеме и написать, для чего нужна данная программа. Очень надеюсь на вашу помощь.
Извиняюсь, путаюсь. Нужно составить программу в паскале по этому алгоритму.
Var x,y,z:real; begin Read(x,y); z:=0; if x>0 then if y>0 then z:=2 else z:=1 else z:=0; Writeln(z) end. Если х положительно, то программа выводит количество положительных среди x и y (1 или 2). Если х ≤ 0, программа выводит 0.
Огромное спасибо!