СДАВАТЬ ЧЕРЕЗ 10 МИНУТ Установи соответствие между уравнением реакции и свойством серы в ней.

Давайте по строчкам пойдем.

Program 1;  - имя программы не может начинаться/являться числом

var - всё норм

n,m,p : real; не понимаю, зачем эти переменные объявлять как real, когда можно сделать их int'ами + не хватает переменной i

begin - всё норм

Так как у нас произведение, нам нужно переменной p присвоить единицу.

read(n,m) - не хватает точки с запятой, и я бы писал сначала число, а потом степень в которую надо возвести, а не наоборот.

for i := 0 to n do, если уж мы идём с нуля, тогда цикл должен кончится в n-1 (можно начать с 1, закончить n)

p := m * p; - всё норм

write(p) -  не хватает точки с запятой

end - не хватает точки

Рабочий код:

Program pow1;

var

n, m , p,i : integer;

begin

p:= 1;

read(m,n);

for i :=0 to n-1 do

p:=m*p;

write(p);

end.

Program pr;

uses crt;

Var a,k,k1:integer;

Begin

Writeln("Bведите а");

readin(a);

k1:=1;

k:=0

; While (a<>0) and (k1<1000) do

Вegin

if (a<0) and (a mod 2-0) and (abs (a)<-30000)

then k:%3Dk+1;

readln(a); end;

Writeln(k3},k);

readln;

end. 2) Program pr;

uses crt;

Var a,k,k1:integer;

Begin Writeln('Bведите а);

readln(a);

k1:=1

k:=0

While (a<>0) and (k1<1000) do

Begin if (a>0) and (a mod 24>0) and (abs(a)<-30000)

then k:1k+1;

k1:=k1+1

readln(a):

end

Writeln('k='k');

readin;

end