Помогите решить задачу по информатике через паскаль

Question

Помогите решить задачу по информатике через паскаль

Помогите решить задачу по информатике через паскальсреди 2-значных чисел найти те,сумма квадратов цифр которых делится на13
2)найти все 3-значные числа,которые при делении на2дают остаток1,при делен.на3-ост2,при делен.на4-ост3,а само число делится на13

Гость

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

Accepted Answer

program ss; uses crt; var i:integer; function SummaCifr(n:longint):integer; var s:integer; begin s:=0; repeat s:=s+n mod 10; n:=n div 10; until n=0; SummaCifr:=s; end; begin clrscr; for i:=10 to 99 do if (sqr(i mod 10)+sqr(i div 10)) mod 13=0 then write(i,); readln; end.