нарисуйте блок схему програми в паскаль Program if_4; Var a,b,c,k1:integer; Begin; Writeln(‘Введіть число’); Readln(a); Writeln(‘Введіть число’); Readln(b); Writeln(‘Введіть число’); Readln(c); If a>0 then k1:=k1+1; If b>0 then k1:=k1+1; If c>0 then k1:=k1+1; Writeln(‘Кількісьть додатних чисел’,k1); Readln; End.

Вопрос школьника по предмету Информатика

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

Var a,b,c,k1:integer;

Begin;

Writeln(‘Введіть число’);

Readln(a);

Writeln(‘Введіть число’);

Readln(b);

Writeln(‘Введіть число’);

Readln(c);

If a>0 then k1:=k1+1;

If b>0 then k1:=k1+1;

If c>0 then k1:=k1+1;

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

Readln;

End.

Ответ учителя по предмету Информатика

Надеюсь поймешь, и извини, что на русском.