//PascalABC.Net 3.2
{2}
function f(x:real):real;
begin
if x>0 then result:=x/3 else result:=x*sqr(x);
end;
begin
write (f(readreal('x =')));
end.
{3}
begin
var cat:=readinteger('Введите начальное кол-во:');
var count:=0;
if cat<2 then write ('Никогда') else
if cat>100 then write ('Уже не хватает') else begin
repeat
count+=1;
cat+=cat div 2;
until cat>100;
print ('Через', count, 'недели');
end;
end.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Draw(x->Sqrt(x),0,10)
end.
=D$2+$B4...........................................
1.Переведём Кбайты в байты: 15(Кбайт) * 1024(байт в 1 Кбайт) = 15360 байт (кол-во файла).
2.Найдём скорость соединения: 15360 байт / 120 сек = 128 байт/с (байт в секунду).
Переведём дополнипельную скорость соеднения: 512(бит/с) / 8(бит в 1 байт) = 64 байт/с.
Теперь скорость будет равна 128 байт/с + 64 байт/с = 192 байт/с
Осталось найти время передачи: 15360(байт) / 192(байт/с) = 80с
Ответ: 80секунд.
1. Курилы
2. Хорошего Колумб
3. Жи-ши пиши с буквой "и"
4.Пифагоровы "штаны" во все стороны равны
5. S= ab
6. Демон- М. Ю. Лермонтов