<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s1, s2) := ReadReal2('Введите площади кругов:');
Println('Площадь прямоугольника равна ', 2 * Max(s1, s2) / Pi)
end.
<h3>Введите площади кругов: 46.13 41.52</h3><h3>Площадь прямоугольника равна 29.3672700993165 </h3>
Пусть V - объем скачиваемых файлов, t - время скачивания, v - скорость.
V = v*t = 20*t
Скачивание файла папой (20% от 20 мин = 4 мин):
4*v+6*(v/2)+x*(v/3) = 20*v ? 4+3+x/3 = 20 ? x = 39
Скачивание файла мамой:
6*(v/2)+39*(v/3)+y*(v/2) = 20*v ? 3+13+y/2 = 20 y=8
Ответ: 8, Ну я думаю что так .
Вариант а) отпадает, так как в 1 строке получим произведение 7 единиц=1, а должно получиться 0
Вариант б) отпадает, так как1 строке получим сумму 7 единиц=1, а должно получиться 0
В варианте В) прошла 1 строка, получили в итоге 0, но не прошла вторая строка. Получается 1, а должно быть равно 0
Остается вариант Г)
Если подставить значения, то все строки прошли тест.
Ответ: Г
Var
sum: real;
i: integer;
begin
sum := 1000;
for i := 2017 to 2030 do
sum := 1.2 * sum;
writeln(sum);
end.