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
Давайте по строчкам пойдем.
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.
