Составьте программу которая находит сумму четных чисел и произведение нечетных чисел в...

Question

Составьте программу которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10

Answer 1

Uses Crt; 
var s,i:integer; 
begin ClrScr; 
i:=0; 
s:=0; 
While i<10 do <br>Begin i:=i+2; 
s:=s+i; 
end; 
writeln('Сумма четных = ',s); 
i:=1; 
s:=1; 
While i<9 do <br>Begin i:=i+2; 
s:=s*i; 
end;
writeln('Произведение нечетных  = ',s); 
readln; 
end.

Comments

я в паскаль подставил и у меня высвечивается Программу с подключенным модулем CRT нельзя запускать по F9.
Запустите программу, используя Shift-F9

---

ну нажми

---

я нажал

---

и что дальше\

---

и всё

---

а подставлять

---

куда

---

ниче не надо

---

почему

---

почему?????