1. Нарисовать блок-схему этой программы. Program al;
VAR x,y,f:Integer;
BEGIN
f:=pi/2; x:=sin(f) -1;
if x>=0 then y:=x+1 else y:=x div 2 +4 mod 3;
writeln('y=',y);
Readln
END.
2. Укажите результат работы этой программы:
Program al;
var i,n:byte;
BEGIN
n:=-4;
for i:=1 to 5 do writeln(n,-1, 1:2,=",i-n:2);
END. .​

Жибек20041    3   16.12.2020 04:38    0