Uses crt;
var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+i*i;
writeln(s);
end.
История 2 мировая война, биология-вымирание динозавров, география-земля имеет форму шара
1. Китайцы - мышонок, Немцы - обезьяний хвост, Итальянцы и французы - улитка
uses crt;
var kletka,i,vremya:integer;
begin
kletka:=1;
write ('vvedite vremya');
read(vremya);
vremya:=vremya div 5;
for i:=1 to vremya do
kletka:=kletka*4;
write ('kletok stanet- ',kletka);
end.
Переведём скорость передачи из бит в Кб.
256000 бит/с = 31,25 Кб/с.
Теперь просто умножим скорость на время.
31,25 Кб/с * 15с = <span>468,75 Кб.</span>