Запишите, пожалуйста, на языке Паскаля. Условие задачи: подсчитать кол-во положительных чисел среди чисел a, b, c .
Запишите, пожалуйста, на языке Паскаля. Условие задачи: подсчитать кол-во положительных чисел среди чисел 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.
Гость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.
Не нашли ответ?
Похожие вопросы