Примеры алгоритмов

1.

Пример 2. Составить программу для вычисления
суммы первых 10 натуральных чисел.
Program Summa;
Var i,S:byte;
Begin
i:=1;
While i<=10 do
begin
S:=S+i;
i:=i+1;
end
Writeln(‘Сумма S=’,S);
End.

2.

• Пример 3. Составить программу для вычисления
первых шести членов последовательности,
заданной формулой n-го члена: xn=2n-1.
Program Prim3;
Var x,n:integer;
Begin
Writeln;
n:=1;
While n<=6 do
begin
x:=2*n-1;
writeln(x,‘ ');
inc(n);
end;
End.

3.

Пример 4. Составить программу, которая
выводит на экран 15 первых нечетных
натуральных чисел.
program n5;
var i, x: integer;
begin
x:=1;
for i:=1 to 15 do
Begin
writeln(x,′ ′);
x:=x+2;
end;
end.

4.

Домашнее задание: Чиновник, ежемесячно получает
заработную плату в размере Х рублей. Величина Х
равна 5000 рублей ежемесячно. Автомобиль BMW
X5, который хочет купить на зарплату чиновник, стоит
2000000 рублей. Напишите программу, которая
вычислит, сколько месяцев потребуется чиновнику
на сбор нужной суммы.