1)
var
a, b, i: longint;
begin
read(a, b);
for i := a to b do
writeln(i:10, бит = , i / 8 / 1024:10:5, Кб);
end.
3)
var
a, b, s: real;
i:integer;
begin
read(a, b);
for i := 1 to 10 do
begin
s := s + b;
b := b * 1.03;
end;
writeln(s - 10 * a);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.