Ответы
Ответ дал:
0
program P3;// ИМЯ ПРОГРАММЫvar k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХbegin//НАЧАЛО ПРОГРАММЫs:=0; for k:=8 to 1000 do if k mod 2=0 thens:=s+k;writeln('сумма четных чисел = ',s); readln end.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад