Меню сайта

Задача №4

Дано 3 целых числa. Найти количество положительных в исходном наборе.


Program if_4-

Var a,b,c,k1:integer-

Begin

Writeln(‘Введите число’)-

Readln(a)-

Writeln(‘Введите число’)-

Readln(b)-

Writeln(‘Введите число’)-

Readln(c)-

k1:=0-

If a&gt-0 then k1:=k1+1-

If b&gt-0 then k1:=k1+1-

If c&gt-0 then k1:=k1+1-

Writeln(‘Количество положительных чисел ‘,k1)-

Readln-

End.

Категория: Разветвляющиеся программы | Дата: 02.01.13

Меню раздела
Блок