Question

Найдите ошибки в программе. В ответ выпишите исправленные строки. program Prim_2_1; var a,b,c,f :integer; begin writeln('Введите 3 численных значения:'); readln(a,b ); p:=a+b+c writeln('p=,'p); end

Answer 1

program Prim_2_1;

var a,b,c,p :integer;

begin

writeln('Введите 3 численных значения:');

readln(a,b );

p:=a+b+c;

writeln('p=',p);

end.

1. Вместо f в var написать p

2. Поставить ; после

p:=a+b+c

3. Поменять местами запятую и апостроф в

С writeln('p=,'p);

На writeln('p=',p);

4. После end поставить .

Answer 2

В программе содержится несколько ошибок. Вот исправленная версия:

pascalCopy code
program Prim_2_1;
var
  a, b, c, p: integer;

begin
  writeln('Введите 3 численных значения:');
  readln(a, b, c);
  p := a + b + c;
  writeln('p = ', p);
end.

Исправления:

1. Добавлена переменная p в объявление переменных.
2. Добавлена точка с запятой после выражения p:=a+b+c.
3. Добавлен пробел после знака равенства в строке вывода writeln('p = ', p);.
4. Добавлена точка в конце программы (end.).