Решение задач. Задача 1. Программа вычисления суммы чисел в диапазоне от 1 до 100

1. Решение задач

2. Задача 1

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

3.

var s: integer;
begin
s:=0;
for var i:= 1 to 100 do
begin
write(i,’+’);
s:= s+i;
end;
writeln;
write(’s=’,s);
end.
Пример

4. Задача 2

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

5.

var s:integer;
begin
s:=0;
for var i:=1 to 100 do
begin
if i mod 2=0 then
begin
write(i,'+');
s:=s+i;
end;
end;
writeln;
write('s=',s);
end.
Пример

6. Задача 3

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

7.

var p:integer;
begin
p:=1;
for var i:=1 to 10 do
begin
write(i,'*’);
p:=p*i;
end;
writeln;
write('p=',p);
end.
Пример

8. Задача 4

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

9.

var s,p:integer;
begin
s:=0;
p:=1;
for var i:=1 to 10 do
begin
if i mod 2=0 then write(i,'+');
if i mod 2=0 then s:=s+i;
end;
writeln; writeln('s=',s);
for var i:=1 to 10 do
begin
if i mod 2<>0 then write(i,'*');
if i mod 2<>0 then p:=p*i;
end;
writeln;
write('p=',p);
end.
Пример

10. Задача 5

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

11.

var s:integer;
begin
s:=0;
for var i:=1 to 10 do
begin
write(i,’ ’);
s:=s+sqr(i);
end;
writeln;
write('s=',s);
end.
Пример

12. Задача 6

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

13.

var s:integer;
begin
s:=0;
for var i:=1 to 100 do
begin
if i mod 2<>0 then
write(i,'+');
if i mod 2<>0 then
s:=s+i;
end;
writeln;
write('s=',s);
end.
Пример