Ответы и объяснения

2014-02-06T07:04:22+04:00
1 Задание: Сумма чисел = 3675
2. 
var s,i:integer;
begin
s:=1;
for i:= 1 to 9 do
s:=s*i;
writeln('Произведение чисел равна:',s);readln;end.

Произведение однозначных равно =  362880

3.

var s,i:integer;
begin
s:=1;
for i:= 2 to 20 do
s:=s+i;
writeln('Сумма чисел равна:',s);
readln;end.

Сумма чисел от 1 до 20 = 210

4. 

var s,i:integer;
begin
s:=0;
for i:= 100 to 200 do
if i mod 8=0 then s:=s+i;
writeln('Сумма чисел кратных 8: ',s);
readln;end.

Сумма числе от 100 до 200 кратных 8 = 1976

5.
var i:integer;
begin
for i:= 10 to 99 do
writeln(i);
readln;end.