266 минут понадобиться что передать 16 гигабайт по каналу 8мбит/с
27.Чашки: чашка "а", чашка "b", чашка "с"
Чайник
начало
взять чашку
Янту не сказали, какую из чашек взять, поэтому он "завис".
28.Брюндик существо жёлтого цвета;большой живот;много ест.
Хрюндик существо розового цвета;хобот;обливается водой.
Крюндик существо зелёного цвета;хвостик;махать хвостиком.
Просто идёшь по алфавиту и всё.
ответ: l, e
var
a,b,i: integer;
begin
writeln ('введи два числа');
read (a,b);
if a>b then writeln (a,'большее число')
else
writeln (b,'большее число')
end.
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
<u>Пример</u>
n= 10
S=2.92896825396825