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*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
end.
Результат:
153
370
371
407
Uses crt;var s,i,n:integer; a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0; for i :=1 to n do begin a[i]:=(random(2000)-1000)/10; write('a[',i,']=',a[i],'; '); end; for i :=1 to n-1 do begin if a[i]>a[i+1] then s:=s+1; end; if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.
Блок-схема - в прилагаемом файле.
<span>1232345678910 + 1234567910 = </span>1233580246820
Зажать home и блокировку. Устройство выключится.