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;Beginwriteln ('vvedite chislo n');readln (n);for i:= 10 to 99 do beginp1:= i div 10;p2:= i mod 10;s:= p1+p2;if s=n then writeln ('i=', i);end;readln;end.