Задать вопрос
6 октября, 17:48

Перепишите программу на языке Паскаль, исправив ошибки:

Program primer

Var a, b: integer;

Begin;

ReadLn (a, b) ;

s=a+b;

m:=a*b;

d:=a:b;

WriteLn (s) ;

WriteLn (m) ;

WriteLn (d)

End

+5
Ответы (1)
  1. 6 октября, 18:55
    0
    Ошибки в программе:

    Program primer - не хватает точки с запятой

    Var a, b: integer;

    Begin; - не ошибка, необязательная точка с запятой

    ReadLn (a, b) ; - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками

    s=a+b; - не хватает двоеточия в : =

    m:=a*b;

    d:=a:b; - переменная d не была описана; деление - это /

    WriteLn (s) ;

    WriteLn (m) ;

    WriteLn (d)

    End - не хватает точки.

    Исправленная программа:

    Program primer;

    Var a, b: integer;

    d: real;

    Begin

    ReadLn (a, b) ;

    s : = a + b;

    m : = a * b;

    d : = a / b;

    WriteLn (s) ;

    WriteLn (m) ;

    WriteLn (d)

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Перепишите программу на языке Паскаль, исправив ошибки: Program primer Var a, b: integer; Begin; ReadLn (a, b) ; s=a+b; m:=a*b; d:=a:b; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать калькулятор выражений в питоне начало:primer = list (input ("Введите пример:")) lenght = len (primer) i = 0 while i < lenght: if primer[i] = = '*': primer[i-1] =
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (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)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Объясните строчку (c:=10*c+a mod 10; a : = a div 10;) program pr36; function qwer (var a, b: integer) : integer; var c: integer; begin c:=0; while a > 0 do begin c:=10*c+a mod 10; a : = a div 10; end; qwer: = c; end; var a, b: integer;
Ответы (1)