Var a: array [1..50] of integer ;
d:integer;
begin
write ('Введите первый член a1 = ');
read(a[1]);
write('Разность d = ');
read(d);
writeln(a[1]);
for var i:=2 to 50 do begin
a[i]:=a[1]+d*(i-1);
writeln(a[i]);
end;
end.
Если мощность алфавита = 128,значит вес символа =2^7 то есть 7 бит.
потом 7 умножаем на 600 и получаем 4200 бит.потом переводим в байты делением 4200/8 =525 байт.Переведем байты в килобайты получим 525/1024=0,5Mб
var k,p: integer;
begin
readln(k,p);
if k*80<p*70 then
write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')
else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');
end.
<span>Переводы
б) 057222
а) 101111010010010
в)OFA5 и 1210 - 04BA
</span>