Program project; //объявляем название программы Var //объявляем переменные a: integer; //integer - целое число Begin //начинаем собственно программу >>a:=1; //первое число будет состоять из единиц >>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10 >>Begin //начало цикла >>>>Writeln (a, a, a); //записываем "а" трижды >>>>a:=a+1; //прибавляем к "а" единицу >>End; //конец цикла End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются
По порядку: 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);
var N,st,dt,t,s,d,e:integer;
begin
writeln('Введите число');
readln(N);
st:= N div 100000;
dt:= N div 10000 mod 10;
t:= N div 1000 mod 10;
s:= N div 100 mod 10;
d:= N div 10 mod 10 ;
e:= N mod 10;
s:= st+dt+t+s+d+e;
print(s);
end.