Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
a, d : real
s: array[1..20] of real;
begin
write('введите n-');
readln (n);
write('введите а=');
readln(a);
write('введите d=');
readln(d);
s[1]: =a;
for i: =2 to n do
s[i]: =a+d;
write('арифметическая прогрессия: ');
for i: =1 to n do
write(s[i]);
end.
1 бит на 1 символ, поэтому:
14400*10=144000 символов
336600*10=3366000 символов
в одном байте восемь бит. следовательно 100/8=12.5 ответ 12.5
исполняемые файлы:
test.exe = 459 кб
photo.exe = 117 кб
letter.com - 198 кб
графические файлы:
nature.jpg = 314 кб
program.bmp = 361 кб
текст. документы:
comp.doc = 238 кб
получается порядок:
test.exe
program.bmp
nature.jpg
comp.doc
letter.com
photo.exe
Популярные вопросы