Задать вопрос
3 марта, 21:27

Найти ошибки в записи программы. Перепиши программу в исправленном виде

program Сумма;

var A, B, C: boolean;

begin

read (A, B)

C=A/B

writeln (Сумма введенных трех чисел равна, С)

end

+3
Ответы (1)
  1. 3 марта, 21:49
    0
    Program Sum;

    var A, B, C: boolean;

    begin

    read (A, B) ;

    C=A/B;

    writeln ('Сумма введенных трех чисел равна', С) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найти ошибки в записи программы. Перепиши программу в исправленном виде program Сумма; var A, B, C: boolean; begin read (A, B) C=A/B ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Выдает ошибку Операция > не может быть применена к типам boolean и integer Program qq; var a, b, c, max, min, med : integer; begin writeln ('введите три числа') ; read (a, b, c) ; if c>b>a then begin max : = c; med : = b; min : = a; End;
Ответы (1)
Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Program faceyourseif; var x:integer; k:integer; begin x : = Random (100) ; writeln ('Компьер загадал число от 0 до 100') ; writeln ('Попробуйте его угадать') ; repeat begin writeln ('Введите число') ; read (k) ; if k > x then writeln ('Не угадали!
Ответы (1)