Определить значение переменной у после выполнения следующего фрагмента программы: y:=0; For i:=-100 to 100 do If i mod 10 =5 then y:=y+i; С решением, пожалуйста
Определить значение переменной у после выполнения следующего фрагмента программы:
y:=0;
For i:=-100 to 100 do
If i mod 10 =5 then y:=y+i;
С решением, пожалуйста
Гость
Ответ(ы) на вопрос:
ГостьProgram dsdasd;
var i,y: integer;
begin
y:=0;
For i:=-100 to 100 do
if i mod 10=5 then y:=y+i;
Writeln(y);
end.
у будет равен 500. Считается он так: из чисел -100,-99,-98...98,99,100 остаток 5 при делении на 10 получается у чисел:
5, 15....75,85,95, то есть нужно эти 10 чисел сложить.
Не нашли ответ?
Похожие вопросы