нарисуйте блок схему програми в паскаль Program if_4; Var a,b,c,k1:integer; Begin;

Нарисуйте блок схему програми в паскаль Program if_4;

Var a,b,c,k1:integer;

Begin;

Writeln('Введть число');

Readln(a);

Writeln('Введть число');

Readln(b);

Writeln('Введть число');

Readln(c);

If agt;0 then k1:=k1+1;

If bgt;0 then k1:=k1+1;

If cgt;0 then k1:=k1+1;

Writeln('Кльксьть додатних чисел',k1);

Readln;

End.

Виктор 2019-09-10 13:30:33

делайте пжж