Question

программа с числом 101 паскаль

Answer 1

Ответ:

uses crt;

var sum,i:integer;

begin

sum:=0;

for i:=101 to 301 do begin

if i mod 2=0 then sum:=sum+i;

end;

writeln('Cумма нечётных элементов=  ',sum);

end.