Ответ
В варианте Г объём информации больше 30 килобайт
Var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
131
241
324
550
624
803
900
910
Если требуется деление на 11 без остатка, то:
var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) mod 11) = 0 then
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
<span>550
803</span>
В смысле нарисовать как?
Если да,то нарисуй компьютер и например рядом с ним градусник,чай горячий,и нарисуй как будто он в кровати лежит.
А вообще включай фантазию)
Привет!Не знаю может поможет чем-то вот эта ссылка :http://revolution.allbest.ru/audit/00238363_0.html