Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
A) Сложи все 4 числа, затем сумму раздели на 4. Ответ на экран
б) Прочитай рост сохрани в перемнную выведи на экран. То же самое для веса и возраста
с) Ты можешь использовать теорему Виета или же вычислять по формуле через дискриминант. Не забудь проверить существуют ли корни у этого уравнения.
Пусть х основание системы
ax^2+x+5=61
ax^2+x=56.
учтем что х целое и не меньше 6.
x^2<=56
x<=7
6<=x<=7
a=0 x=56
x=6 a*36+6=56
a*36=50
нет целого решения
х=7
a*49+7=56 a=1
<span>ответ 7, 56</span>