program summa

Ответ от Ирина Чичикайло[активный]
program summa_n; var i,sum:integer; begin sum:=0; i:=2; while i<=20 do begin sum:=sum+i; i:=i+2; end; writeln ('Summa: ',sum); end. Такая подойдёт? Более подробно не могу написать, т. к в информатике не оч шарю.. )

Ответ от Ѕулиганов Иосиф[гуру]
begin writeln('Количество=10'); writeln('Сумма=110'); end.

Ответ от Марьюшка[гуру]
program summa_chetnykh; var i, k, sum: integer; begin k := 0; sum := 0; for i := 1 to 10 do begin k := k + 1; sum := sum + 2 * i; end; writeln ('Количество - ', k, ', сумма - ', sum) end.

Ответ от Ўрик[новичек]
ПРОГРАМмИСТЫ ВСЕ)

Ответ от Валентин Мотренко[новичек]
program x; var a, b, i:integer; begin b:=0; a:=0; for i:=2 to 20 do if (i mod 2)=0 then begin a:=a+i; b:=b+1; end; write('Сумма=', a, ', ', 'количество=', b); end.

Ответ от Dora Explorer[новичек]

Ответ от Артём Черноус[новичек]
program summa_chetnykh; var i, k, sum: integer; begin k := 0; sum := 0; for i := 1 to 10 do begin k := k + 1; sum := sum + 2 * i; end; writeln ('Количество - ', k, ', сумма - ', sum) end. program summa_n; var i,sum:integer; begin sum:=0; i:=2; while i<=20 do begin sum:=sum+i; i:=i+2; end; writeln ('Summa: ',sum); end. Такая подойдёт? Более подробно не могу написать, т. к в информатике не оч шарю. . )

Ответ от ...Та самая... Викуся[гуру]
Язык: паскаль. Program alfa var i,n,sum:integer; begin writeln('Введите n'); readln('n'); ////Тут возможны два решения, с циклом и без. Вот первое: sum:=0; for i:=1 to n do if i mod 2 =0 then sum:=sum+i; writeln(sum); end. ////Второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии: if n mod 2=1 then n:=n-1; sum:=((2+n)/2)*n/2; writeln(sum); end.

Ответ от Металлист[новичек]
program summa_chetnykh; var i, k, sum: integer; begin k := 0; sum := 0; for i := 1 to 10 do begin k := k + 1; sum := sum + 2 * i; end; writeln ('Количество - ', k, ', сумма - ', sum) end.

Ответ от Vadim Burlov[новичек]
program summa_n; var i,sum:integer; begin sum:=0; i:=2; while i<=20 do begin sum:=sum+i; i:=i+2; end; writeln ('Summa: ',sum); end.

Ответ от Ѐина Ионова[новичек]
program summa_chetnykh; var i, k, sum: integer; begin k := 0; sum := 0; for i := 1 to 10 do begin k := k + 1; sum := sum + 2 * i; end; writeln ('Количество - ', k, ', сумма - ', sum) end.

Ответ от юлия емельянова[новичек]
програм сам

Ответ от Даша Фёдорова[новичек]
брееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееед полный

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]