uses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
<span>end.</span>
Разделить число в двоичной по три цифры начиная с правого разряда.
Из 1010010 получится 1 010 010.
Потом заменяешь каждую тройку соответствующим числом восьмиричной системы.
0 - 000
1 - 001
2 - 010
3 - 011
4 - 100
5 - 101
6 - 110
7 - 111
Из числа 1010010 получаем число 122.
Uses crt;
var a,b,c:real;
begin
writeln ('Введите пройденные км.(В км.): ');
readln(a);
writeln ('Введите занятое на прохождение пути время(В часах): ');
readln(b);
c:=a/b;
writeln ('Средняя скорость составляет ',c:3,' км/ч');
end.
<span>Программа выводящая одно число: сумму всех чисел , кратных 4 и оканчивающихся на 6.</span>
Мультимедиа или мультимедиа контейнеринг - название данной технологии