Question

Program prim1; Var i, n, p1, p2, s: integer; Begin writeln (‘vvedite chislo n’); readln (n); {организовываем цикл с параметром от 10 до 99} for i:= 10 to 99 do begin p1:= i div 10; { выделяем первую цифру} p2:= i mod 10; {выделяем последнюю цифру} s:= p1+p2; {находим сумму цифр числа i} {проверяем равна сумму цифр числа i числу n } if s=n then writeln (‘i=’, i); end; readln; end. Помогите прошу вас, учитель сказал запрогромировать, как это сделать. Что нужно выполнить? объясните.. Копировав и выполняя это выбивало ошибку. В чём проблема. Помогите пожалуйста

Answer 1

Вы не те кавычки используете ‘ - такие нельзя, нужно вот такие " либо '

Var i, n, p1, p2, s: integer;

Begin

writeln ('vvedite chislo n');

readln (n);

{организовываем цикл с параметром от 10 до 99}

for i:= 10 to 99 do begin

p1:= i div 10; { выделяем первую цифру}

p2:= i mod 10; {выделяем последнюю цифру}

s:= p1+p2; {находим сумму цифр числа i}

{проверяем равна сумму цифр числа i числу n }

if s=n then writeln ('i=', i);

end;

readln;

end.

Answer 2

Вот, теперь программа работает, убрал комментарии. Ещё добавил скришот работы:

• Program prim1;
• Var i, n, p1, p2, s: integer;
• Begin
• writeln ('vvedite chislo n');
• readln (n);
• for i:= 10 to 99 do begin
• p1:= i div 10;
• p2:= i mod 10;
• s:= p1+p2;
• if s=n then writeln ('i=', i);
• end;
• readln;
• end.

Answer 3

Проблема в вашем коде связана с использованием кавычек вместо одиночных кавычек для строк и неправильным форматированием комментариев. В Pascal используются одиночные кавычки для строк, а комментарии обычно начинаются с символов { и заканчиваются символами }. Давайте исправим ваш код:

pascalCopy code
Program prim1;
Var
  i, n, p1, p2, s: integer;
Begin
  writeln('Введите число n');
  readln(n);
  
  { организовываем цикл с параметром от 10 до 99 }
  for i := 10 to 99 do
  begin
    p1 := i div 10; { выделяем первую цифру }
    p2 := i mod 10; { выделяем последнюю цифру }
    s := p1 + p2;   { находим сумму цифр числа i }
    
    { проверяем равна сумма цифр числа i числу n }
    if s = n then
      writeln('i=', i);
  end;
  
  readln;
End.

В этой версии кода я заменил кавычки одиночными кавычками и добавил правильное форматирование комментариев. Теперь ваша программа должна работать без ошибок.