По информатике.паскаль люди добрые, решить ,завтра зачёт по информатике,нужно эту решить.вот условие: вывести на экран все трехзначные числа,сумма квадратов цифр которых равна 105. убедительная просьба,решить через mod,версия паскаля pascalabc.net

285

332

Посмотреть ответы 2

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

Ане4ка3

Информатика

4,5(67 оценок)

Var i: integer; begin for i: =100 to 999 do begin if sqr(i mod 10)+sqr(i div 10 mod 10)+sqr(i div 100)=105 then writeln(i); end; end.вывод: 458 485 548 584 845 854

Сағат

Информатика

4,6(86 оценок)

Вот решение но почему 1-4 классы. var mas: array of integer; i,n: integer; begin readln(n); setlength(mas,n); for i: =0 to n-1 do begin mas[i]: =random(71)-20; write(mas[i],' '); end; end.