Задача №3. Вычислить сумму четных чисел на отрезке от 10 до 30.

Задача №3. Вычислить сумму четных чисел на отрезке от 10 до 30.

Program kol3;

var

k:integer;

s:integer;

begin

k:=10;

S:=0;

While k<=30 do

begin

k:=k+2;

S:=S+k;

end;

writeln (‘s=’,s);

end.

Задача №1. Найти количество чисел, сумма которых превысит 100 (задача о сумме натуральных чисел).

Program kol;

Var

K:integer;

S:integer;

begin

S:=0;

K:=0;

while s<=100 do

begin

K:=k+1;

S:=S+k;

end;

writeln (‘k=’,k);

end.

Задача № 2. Вычислить сумму первых 10 натуральных чисел. While работает со счётчиком.

Program kol2;

var

i:integer;

s:inreger;

begin

i:=1;

S:=0;

while i<=10 do

begin

i:=i+1;

S:=S+1;

end;

writeln (‘s=’,s);

end.