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.
<span>3641 Это будет ответ, вот так вот
</span>
<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>
Ответ: 4 таблица
Рассмотрим каждую таблицу отдельно:
1) В 1 таблице добраться из пункта А в пункт C можно 2 путями:
АВС = 4 + 3 = 7
АС = 8
2) Во 2 таблице добраться из пункта А в пункт C можно 1 путём:
АDС = 2 + 6 = 8
3) В 3 таблице добраться из пункта А в пункт C можно 2 путями:
АВС = 8 + 3 = 11
АDС = 3 + 4 = 7
4) В 4 таблице добраться из пункта А в пункт C можно 2 путями:
АВDС = 1 + 2 + 1 = 4
АDС = 8 + 1 = 9
Машинист сможет доехать из пункта А в пункт C за 4 часа только путем АВDС из 4 таблицы.
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)