Program ZZZ;
var z,s:integer;
begin
writeln('введите число < 65000');
readln(z);
s:=0;
while z>0 do
begin
z:=z div 10;
s:=s+1;
end;
writeln (s,'-значное число');
<span>end.
2 и 3 задачи в одной
program ZZZ;
var i,z,s:integer;
begin
writeln('введите число < 65000');
readln(z);
s:=0;
write ('делители введенного числа: ');
for i:=1 to 65000 do
begin
if z mod i =0 then
begin write (i,', ');s:=s+1; end;
end;
writeln;
if s=2 then writeln ('введенное число - простое') ;
<span>end.
</span></span>
1.5 минуты ето 90с
потом нужно 90*256 000=23040000 бит
23040000:8192=2812,5
Const n=20;
var a: array [1..n] of integer;
i,s,k,v,j: integer;
begin
for i:=1 to n do
readln (a[i]);
writeln (a);
for i:=1 to n do
if (a[i] div 100 = 0) and (a[i] div 10 <> 0) then
begin
k:=k+1;
if k=1 then s:=s+a[i];
if k=3 then s:=s+a[i]
end;
writeln (s);
for i:=1 to n do
begin
for j:=1 to n-1 do
if a[j]<a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end
end;
writeln (a)
end.
1, 1, 1, 2, 1
Изменение значения: 11, 9, 7, 5, 15, 13.
Текст поплыл поэтому я прикрепил текстовик с кодом.
(писал на чистой Си)