Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.
var a,b,sum,i : integer;
begin
readln(a,b);
if (a < 0) or (a > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''a'' не подходит: ');
readln(a);
end;
if (b < 0) or ( b > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''b'' не подходит: ');
readln(b);
end;
sum := 1;
for i:= 1 to b do
sum:= sum * a;
writeln('Число ''а'' в степени ''b''',' = ', sum );
end.
Вот и все!
Объяснение:
Первая программа:
program p1;
var
a,p,s : integer;
begin
write('Введите сторону квадрата:');
readln(a);
p := a * 4;
s := a * a;
writeln('Периметр квадрата = ', p);
writeln('Площадь квадрата = ', s);
readln;
end.
Вторая программа:
program p2;
var
a,p,s,pow : integer;
begin
write('Введите число: ');
readln(a);
p := a mod 10;
s := (a div 10) mod 10;
pow := p * s;
writeln('Произведение цифр числа: ', pow);
readln;
end.