var
<span> a, h: </span><em>real</em>;
begin
readln(a, h);
writeln('S = ', 0.5 * a * h);
<span>end.
-----------------------------------
var
a, b, m: <em>real</em>;
begin
readln(a, b);
m := (a > 3 ? a + b : a - b);
writeln('m = ', m);
<span>end.
P.S. Учиться надо, а не тройки на сайтах выпрашивать...</span></span>
1024 бит в сек умножаем на 30 сек, так узнаем количество бит переданное за 30 сек.
1024*30=30720 бит
Переведём в килобайты
1 байт = 8 бит
1 кБайт = 1024 байт
30720/8=3840 байт
3840/1024=3.75 кБайт
Ответ:3.75кБайт
Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.