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

Question

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

Answer 1

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. 

 

Answer 2

var
a,b,c,n,i:integer;
begin
n:=0;
readln(a);
readln(b);
readln(c);

if a>0 then
n:=n+1;
if b>0 then
n:=n+1;
if c>0 then
n:=n+1;
writeln('kolichestvo polozitelnich=', n)
end.