Меню сайта

Задача №5

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


Program if_5-

Var a,b,c,k1,k2:integer-

Begin

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

Readln(a)-

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

Readln(b)-

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

Readln(c)-

k1:=0-

If a&gt-0 then k1:=k1+1 else if a&lt-0 then k2:=k2+1-

If b&gt-0 then k1:=k1+1 else if b&lt-0 then k2:=k2+1-

If c&gt-0 then k1:=k1+1 else if c&lt-0 then k2:=k2+1-

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

Writeln(‘Количество отрицательных чисел чисел ‘,k2)-

Readln-

End.

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

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