Пример работы:
2+4+6 = 12
1)Sum=30
2)var
a, b,Sum, m:integer;
Begin
Readln(m);
a:=1;b:=0;
While a<m do
begin
Sum:=a+b;
b:=b+2;
end;
Write('Summa ravna:',Sum);
Readln ;
End.
3) выведеться 160
Объяснение:
Я смог
вроде бы все ❤❤❤❤❤❤❤❤❤❤❤❤
Пример работы:
2+4+6 = 12
1)Sum=30
2)var
a, b,Sum, m:integer;
Begin
Readln(m);
a:=1;b:=0;
While a<m do
begin
Sum:=a+b;
b:=b+2;
end;
Write('Summa ravna:',Sum);
Readln ;
End.
3) выведеться 160
Объяснение:
Я смог
Объяснение:
вроде бы все ❤❤❤❤❤❤❤❤❤❤❤❤
Пример работы:
2+4+6 = 12