Определите значение переменных s и i после выполнения следующих операторов: s:=0;
for i :=0 to 5 do s :=s+i;

276

413

Посмотреть ответы 1

Ответы на вопрос:

wkolo3avr211

Информатика

4,7(16 оценок)

Var min, summ, count, maxn, max, i: integer; begin summ: =0; count: =0 maxn: =0; writeln('введите диапазон чисел: '); read(min, max); for i: =min to max do begin if ((i mod 2) = 0) then summ: =summ+i else begin if (i> maxn) then maxn: =i; count: =count+1; end; end; if (count> 10) then writeln(maxn) else writeln(summ); end. если нужны какие-то объяснения - пиши в комментарии.