Алгоритм перехода улицы по свотофору
1.Посмотреть какой цвет на светофоре
2.Если зеленый то посмотреть направо
3.Посмотреть налево
4.Если машын нету, то начать переходить
5.Дойти до островка и снова посмотреть направо и налево и перейти дорогу
Алгоритм посадки дерева
1.Взять лопату и выкопать ямку, положыть лопату
2.Взять садженец и поставить его в ямку
3.Взять ведро и полить садженец, положыть ведро
4.Взять лопату и закопать садженец, положыть лопату
5.Взять ведро и полить садженец, положить ведро
Задача: знайти суму всіх натуральних чисел від 1 до п.
Program Suma 2;
var I, n, s: integer;
begin
writeln (‘Ведіть кількість натуральних чисел:’);
write (‘N=’);
readln (n);
Задача: знайти суму всіх натуральних чисел від 1 до п.
Program Suma 2;
var I, n, s: integer;
begin
writeln (‘Ведіть кількість натуральних чисел:’);
write (‘N=’);
readln (n);
I:=1; s:=0;
repeat
s:=s+I;
I:=I+1;
until I>n;
writeln (‘s=’,s);
I:=1; s:=0;
repeat
s:=s+I;
I:=I+1;
until I>n;
writeln (‘s=’,s);
var a,i:integer; max:real;
begin
max:=0;
i:=0;
repeat writeln('Введите число'); read(a);
max:=max+a;
i:=i+1;
until a=0;
writeln('Сумма =',max);
writeln('Средние значение =',max/i);
end.