Так на пример чтоб совершить какой либо алгоритм ты его предстовояешь сегодня сделал много алгоритмов например с утра что ты делаешь 1. открываешь глоза 2.встаешь 3.одеваешь тапочки 4.встоешь с кровати 5.запровляешь кровать 6.идёшь в вану 7.принимаешь душ 8.чистиш зубы 9.вытираешься 10.одеваешься 11.идеш на кухню 12.береш чайник 13.идёшь к воде 14.включаешь воду 15.подстовляешь чайник 16.ждешь пока набирается вода 17.выключаешь воду 18.идеш к плите 19. ставишь чайник 20.зажигаешь спичку 21.включаешь газ 22.подносишь спичку 23.ждешь воду и т.д )
По порядку: Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1; 1) Beigin; правильно Begin и без точки с запятой 2)p=0; оператор присвоения пишется не просто равно, а := правильно: "p:=0;" 3)i=1; см. 2пункт 4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin 5)i=i+2; см. пункт 2 6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p); 7) End. в конце цикла пишут end; 8) в конце программы ставят End.
Откорректированный код:
Program z_1 Var i,p : integer; Begin p:=0; i:=1; while (i > 15) do begin p:=p*i; i:=i+2; end; write('произведение нечётных чисел от 1 до 15 =',p);
1. открываешь глоза
2.встаешь
3.одеваешь тапочки
4.встоешь с кровати
5.запровляешь кровать
6.идёшь в вану
7.принимаешь душ
8.чистиш зубы
9.вытираешься
10.одеваешься
11.идеш на кухню
12.береш чайник
13.идёшь к воде
14.включаешь воду
15.подстовляешь чайник
16.ждешь пока набирается вода
17.выключаешь воду
18.идеш к плите
19. ставишь чайник
20.зажигаешь спичку
21.включаешь газ
22.подносишь спичку
23.ждешь воду
и т.д
)
Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1;
1) Beigin; правильно Begin и без точки с запятой
2)p=0; оператор присвоения пишется не просто равно, а := правильно: "p:=0;"
3)i=1; см. 2пункт
4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin
5)i=i+2; см. пункт 2
6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p);
7) End. в конце цикла пишут end;
8) в конце программы ставят End.
Откорректированный код:
Program z_1
Var i,p : integer;
Begin
p:=0;
i:=1;
while (i > 15) do begin
p:=p*i;
i:=i+2;
end;
write('произведение нечётных чисел от 1 до 15 =',p);
End.