uses crt;
var i,sum,k: integer;
begin
sum:=0;
k:=0;
writeln('<em>Вводите числа. 0 - конец последовательности</em>');
repeat
read(i);
if i mod 2=1 then begin
sum:=sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('<em>Среднее арифметическое нечетных чисел: </em>',sum/k:5:3);
<span>end.</span>
1) 500*70=35000
2) 70000-35000=35000 то есть в сша в 2 раза дешевле чем он собирается продавать
3) 70000+70000=140000 потратил на билет Лёша туда и обратно
следовательно из этого 2 айфона
1 байт - 8 бит
80000 бит/с = 10000 байт/с
1 Кбайт - 1024 байт
10000 байт * 50с = 500000 байт(за 50 с )
Дальше сам,данные есть,решай по формуле S=tV (V -скорость)
105(10) = 1101001(2)
358(10) = 101100110(2)
377(10)<span> = 101111001(</span><span>2)</span>
program shegor2003;
var a:array[1..10] of integer;
i, temp:integer;
begin
for i:= 1 to 10 do
a[i]:=random(11);
writeln('Исходный массив:');
for i:= 1 to 10 do
write(a[i]:3, ' ');
writeln;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln('Преобразованный массив:');
for i:= 1 to 10 do
write(a[i]:3, ' ');
end.