Задать вопрос
16 сентября, 12:08

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

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.

+2
Ответы (1)
  1. 16 сентября, 12:30
    0
    Если задание - подсчет кол-ва чисел больше нуля среди трех данных чисел

    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; Begin ReadLn (a, b, c) ; I:=0 If a0 then ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Почему программа не работает (Pascal) Program abc; Var A, B: array [1 ... 5] of integer; i:integer; begin For i : = 1 to 5 do begin writeln ('введите A') ; readln (A[i]) ; writeln ('Введите B') ; readln (B[i]) ; writeln (A[1]+B[1]) ;
Ответы (1)
Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.
Ответы (1)
Написать программу нахождения периметра параллелограмма по известным сторонам b и h (b и h - целые числа, вводимые с клавиатуры).
Ответы (1)
Program a2; var n, i, min, max, x:integer; begin Writeln ('Введите колицество человек в классе:') ; Readln (n) ; Writeln ('Введите рост 1 ученика:') ; readln (x) ; min:=x; max:=x; for i:=2 to n do begin Writeln ('Введите рост ', i,' ученика:') ;
Ответы (1)