Задача №2
uses crt;var x,i: integer; begin cls; write('x= '); readln(x); for i:=1 to x do if (x mod i)=0 then writeln(i);<span>end.
Задача №1
uses crt;var x,a,b,c,i: integer; begin cls; for i:=100 to 999 do begin a:= i div 100; b:= (i - a*100) div 10; c:= (i - a*100 - b*10); if (a+b+c)*(a+b+c)*(a+b+c)=i then begin writeln(i); inc(x); end; end; if x=0 then write('Такого числа нет');<span>end.
Задача №3
uses crt;var x,a,b,i: integer; begin cls; for i:=10 to 99 do begin a:= i div 10; b:= i - a*10; if a=(b*2) then writeln(i); end;<span>end.</span></span></span>
Без операционной системы и программного обеспечения, ну и без компьютера, конечно
Cls
input x
if x<0 then
z=log(-x)
end if
if x>=0 then
z=sqr(x+1)
end if
print z
Функция человека - ввести данные, дать команду на совершение определенных действий
калькулятор - исполнитель заданных команд
все решения происходят в мозговом центре