Регистрация
Katerinka0307
24.06.2022 02:58
Информатика
Есть ответ 👍

Паскаль ! ! не могу понять как расписать программу

192
260
Посмотреть ответы 1

Ответы на вопрос:

H2Oя
H2Oя
4,6(25 оценок)
Program n1; function sumdig(x: integer): integer; var sum: integer; begin sum: =0; while x< > 0 do begin sum: =sum+x mod 10; x: =x div 10; end; sumdig: =sum; end; function opr(x: integer): boolean; var i,k: integer; begin opr: =false; k: =0; for i: =2 to 9 do if sumdig(x)=sumdig(x*i) then k: =k+1; if k=8 then opr: =true; end; var a,b,i: integer; begin readln(a,b); for i: =a to b do if opr(i) then write(i,' '); end.

Популярно: Информатика