Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент, который меньше любого из своих соседей). Решение на Питоне
//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
Используемая формула: I = V • t.
V — пропускная канала (в битах в секунду
или подобных единицах);
t — время передачи.
Найдём время передачи информации по соединению.
Выполним преобразование от Кбайт к бит.
t = I : V = 240 Кбайт : 2048 бит/с =
= (240 • 1024 • 8) : 2048 с =
= (30 • 8 • 210 • 23) : 211 с = 960 с.
Найдём объём файла, который можно передать за это время по другому соединению. Выполним преобразование от бит к Кбайт.
I = V • t = 512 бит/с • 960 с = 491 520 бит =
= 491 520 : 8 : 1024 Кбайт = 60 Кбайт.
ответ;60.
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}