Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Запишите, пожалуйста, на языке Паскаля. Условие задачи: подсчитать кол-во положительных чисел среди чисел a, b, c .

Ответ оставил Гость

Program abc;

var a, b, c:real;

var i: integer;

Begin

writeln (Введите число а);

readln (a);

writeln (Введите число b);

readln (b)

тоже самое и для с

i:=0

if a>0 then I:=i+1

тоже самое только для б и с

writeln (Число положительных чисел = , i);

End.