<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
Var
procedure kamen(x, y:integer);
{здесь рисуете свой камень. вместо координат х и у}
begin
{я опишу только анимацию камня. с графикой давно не работал-успел забыть}
x:=300;
y:=400;
while y<>700 do
if y<200 then begin
x:=x+15;
y:=y+10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y)
else
x:=x+15;
y:=y-10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y);
end;
closegraph;
readln;
end.
все числа нужно подогнать на практике
Ответ:
a = 120
Объяснение:
a =250
b = 100
b = a - b/2 + 10 = 250 - 100/2 + 10 = 250 - 50 + 10 = 210
a = a/5 + b/3 = 250/5 + 210/3 = 50 + 70 = 120
<span>1.
«Цаты распускаются» и «ветер» - облака будут розовыми,
теплый дождь</span>
<span>2.
<span><span><span><span><span><span><span><span><span><span><span><span><span><span /></span></span></span></span></span></span></span></span></span></span></span><span /></span></span><span><span /></span>«Цаты не распускаются» и «ветра нет» - облака будут желтыми, теплый
дождь
</span><span>3.
«Цаты не
распускаются» и «ветер» - облака будут синими, холодный дождь</span>
