Var r,h:integer;
v1,v2:real;
begin
writeln('Ввод радиуса: ');
readln(r);
writeln('Ввод высоты цилиндра: ');
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.
Количество информации i находится из формулы N=2^i
отсюда 8=2^i
i=3 бита
P.s. ^ - степень
3 килобайта в секунду * 10 секунд = размер файла = 30 килобайт
30 килобайт это 30720 байт.
30720 байт/512байт = 60 секунд = 1 минута.
Файл будет передаваться 1 минуту при скорости 512байт/сек
Var
a, b, c: real;
begin
read(a, b, c);
if (a + b > c) and (b + c > a) and (a + c > b)
then write('существует.')
else write('не существует.')
<span>end.</span>
Program Test;
Var
N,n1,tst,i,count:integer;
Begin
readln(N);
while n1<N do begin
n1:=n1+1;
count:=0;
for i:=1 to n1 do begin
if n1 mod i = 0 then inc(count);
end;
if n1>1 then if count=2 then writeln(n1);
end;
<span>End.</span>