1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.
Программа с исправленными СИНТАКСИЧЕСКИМИ ошибками:
program pr1;
var a, b, d: integer;
begin
readln(a);
readln(b);
d:=1;
while (d<>a) or (b mod 4=0) do begin
d:=d+1;
readln(b);
end;
writeln(d);
end.
Канал у вас что-то уж совсем узенький :)
1. Способ с архивированием.
Архивация: 18 с.
Передача: 4*1024*1024*8:220~=152520,145 с.
Распаковка: 2 с.
итого: 18+152520,145+2=152540,145 с.
2. Способ без архивирования.
Передача: 16*1024*1024*8:220=610080 с.
Конечно, с архивированием, почти вчетверо быстрее :)
8бит = 1байт вроде так...
21 потому что если воробьи перепрыгивают с доски на доску (соседнюю) то получается они двигаются назад так и получается"21" с начала один раз в право потом один раз в лево двое из них не двигаются назад они стают на месте