Нарисуйте блок схему програми в паскаль Program if_4; Var a,b,c,k1:integer; Begin; Writeln('Введіть число'); Readln(a); Writeln('Введіть число'); Readln(b); Writeln('Введіть число'); Readln(c); If a больше 0 then k1:=k...
Нарисуйте блок схему програми в паскаль 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.
Гость
Ответ(ы) на вопрос:
ГостьНадеюсь поймешь, и извини, что на русском.
Не нашли ответ?
Похожие вопросы