Исправьте ошибку в программе и что вычисляетесь приведённая ниже программа?

Program example;

Begin

ReadLn (a, b, c) ;

I:=0

If a<0 then i:=i+1;

If b>0 then i:=i+1

If c>o then I:=I+1;

WriteLn (I)

End.

Question

Информатика

Милиоралия

5 декабря, 06:09

Исправьте ошибку в программе и что вычисляетесь приведённая ниже программа?

Program example;

Begin

ReadLn (a, b, c) ;

I:=0

If a<0 then i:=i+1;

If b>0 then i:=i+1

If c>o then I:=I+1;

WriteLn (I)

End.

+5

Ответы (1)

Знаете ответ на вопрос?

Алан · Answer 1

Если задание - подсчет кол-ва чисел больше нуля среди трех данных чисел

program example;

var a, b, c, i:integer;

begin

ReadLn (a, b, c) ;

i : = 0;

if a > 0 then i : = i + 1;

if b > 0 then i : = i + 1;

if c > 0 then i : = i + 1;

WriteLn (i)

end.

Исправьте ошибку в программе и что вычисляетесь приведённая ниже программа?Program example;BeginReadLn (a, b, c) ;I:=0If a<0 then i:=i+1;If b>0 then i:=i+1If c>o then I:=I+1;WriteLn (I)End.

Исправьте ошибку в программе и что вычисляетесь приведённая ниже программа?

Program example;

Begin

ReadLn (a, b, c) ;

I:=0

If a<0 then i:=i+1;

If b>0 then i:=i+1

If c>o then I:=I+1;

WriteLn (I)

End.