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

166

299

Посмотреть ответы 2

Ответы на вопрос:

nataotkidach

Информатика

4,5(21 оценок)

Program one; var a,b,c,k: integer; begin writeln ('введите числа, нажимая после каждого enter'); readln (a); readln (b); readln (c); k: =0; if a> 0 then k: =k+1 else k: =k+0; if b> 0 then k: =k+1 else k: =k+0; if c> 0 then k: =k+1 else k: =k+0; writeln ('количество положительных чисел ', k) end.