Var i,s: integer; begin s: =0; //сумматор обнуляем обязательно for i: =1 to 100 do if i mod 2=0 then s: =s+i; //узнаем четное ли число и записываем его в нашу сумму writeln('сумма четных чисел равна ',s); end; все что после // (два слэша) можно удалить, так пишутся комментарии в программе
Спасибо
Ответ дал: Гость
700 иероглифов было в древнем письме
Ответ дал: Гость
на каком языке нужна программа? пример на paskal: program zadacha; var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real; begin randomize; write('isxodnij massiv: '); for i: =1 to 15 do begin massiv: =random(41)-20; write(massiv,' '); end; writeln; writeln('massiv posle preobrazovanij: '); for i: =1 to 15 do begin if massiv=0 then massiv2: =massiv else if massiv mod 5 = 0 then massiv2: =massiv*2 else begin massiv2: =massiv; massiv2: =massiv2/2; end; write(massiv2: 0: 1,' '); end; readln; end.
Популярные вопросы