Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
скор передачи=объём файла/время,отсюда объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт
в1+в2=5
(в1+в2+в3)/3=3
(5+в3)/3=3
5+в3=9
в3=4
космонафт відповідь на
Популярные вопросы