4мб=4*1024кб=4*1024*1024б=4*1024*1024*8=
2
=33 554 432
Var a, s,d,ed, ost: integer;
begin
a:=99;
repeat
a:=a+1;
s:= a div 100;
ost:= a mod 100;
if ost>9 then
begin
d:= ost div 10 ;
ost:=ost mod 10;
end else d:= 0;
if ost<10 then ed:=ost;
until (a<1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+ed)));
writeln('это число: ',a:3);
end.
Var S:real;
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.
Пример работы программы:
N = 5
1 24 74 54 36
S = 78
Числа: 4 и 5
1) к наименьшему из {4;5} добавить 2 4+2=6 {5;6}
2) большее из чисел {6;5} 6
3) заменить большее разностью 6-5= 1 {1;5}
повтор:
2) большее из {1;5} 5
3)A