1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.
b = (2468/100)*10=(68(остаток))*10
a = 2468/1000 + 680 = 2 + 680
a = 682 b = 680
ответ: в
По идее ок)
program prim;
var a:array [1..3] of integer;
i:integer;
c:integer;
begin
write('Введите 3 числа: ');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i] > c then c:=a[i];
if (c mod 3=0) then
writeln(c, ' кратно 3')
else
writeln(c, ' не кратно 3');
end.
Var a, b, h, k, m, s, p, alpha:real;
begin
read(a, b, alpha);
k:=(a-b)/2;
h:=tan(alpha)*k;
m:=Sqrt(sqr(k)+sqr(h));
p:=a+b+2*m;
s:=(a+b)*h/2;
writeln('Высота равна: ', h);
writeln('Боковые стороны равны: ', m);
writeln('Периметр равен: ', p);
writeln('Площадь равна: ', s)
end.