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.
Помогите прошу вас, учитель сказал запрогромировать, как это сделать. Что нужно выполнить? объясните.. Копировав и выполняя это выбивало ошибку. В чём проблема. Помогите пожалуйста
Ответы
Ответ дал:
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.
valentina05ru:
Вау..большое вам спасибо
Ответ дал:
1
Вот, теперь программа работает, убрал комментарии. Ещё добавил скришот работы:
- 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.
Приложения:
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад