Верный ответ: 4) 1212.
Важный момент в условии задачи играет следующее ограничение : "В настоящий момент Кузнечик может прыгать только в пределах отрезка от 0 до 5". Таким образом при выборе программы важно учитывать,чтобы выполняя её Кузнечик не вышел за границы.
Учитывая вышесказанное, варианты под номером 1),2) и 3) - неверные, так как в процессе выполнения кузнечик уходит за пределы отрезка.
1h = 60min => 10h = 60min * 10= 600min;
600min*100stukov/minutu=60.000stukov(v 10h);
1stuk - 1 symbol => 60.000 stukov = 60.000 symbolov;
1 symbol = 1 bit => 60.000 symbolov = 60.000 bits;
1 byte = 8 bits => 60.000bits = 7500bytes;
1-4
2-1
3-2
4-5
5-3
(хотя с региональной сетью в вопросе косяк)
Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
Ну раз поскакаль, то так
l:=2*3.14*r;
Эта команда рассчитает длину окружности по радиусу.
Если нужна программа полностью - надо уточнять это в условии.
