ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, M: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите число тюльпанов на грядке: ");
N := Приём.Число();
Вывод.Цепь("^Введите число лилий на грядке: ");
M := Приём.Число();
Вывод.ЧЦел("^Всего цветов Оля посадила: %d шт.", 5 * N + 7 * M, 0, 0, 0)
КОН Задание.
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
if x < 3 then
Println(x / (Sqr(Sqr(x)) + 6))
else
Prinln(-x * x + 3 * x + 9)
end.
1) i=2, 2<9, A=2*i=4, i=i+2=4
2) i=4, 4<9, A=2*i=8, i=i+2=6
3) i=6, 6<9, A=2*i=12, i=i+2=8
4) i=8, 8<9, A=2*i=16, i=i+2=10
5) i=10, 10<9 (не выполн.)
ответ: А=16