1 задача:650/1,39=467,6
<span>необходимо 468 дискет
2задача:</span><span>10 кб/c</span>
У Англии есть традиция пить чай.
// определение числа чётных и нечётных цифр в числе
var n, a, b : integer;
begin
a:=0; //чётные
b:=0; //нечётные
readln (n);
if n<0 then
n:=-n; // уничтожение знака числа
repeat
if ((n mod 10) mod 2<>0) then
a:= a+1
else
b:= b+1;
n:= n div 10; // удаление последней цифры числа
until n=0;
writeln ('Чётных - '+b);
writeln ('Нечётных - '+a);
end.
var mas:array[0..9] of integer;
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.