Блин ответ на языке крутится не могу это написать
Исландия
Ирландия
Новая Зиландия
<span>Шотландия
</span><span>Голландия</span>
Вес равен одному байту
ответ а
Он не равнобедренный,он равносторонний.
<span> <span>begin
readln(a);
readln(b);
readln(c);
if (a=b)or(a=c)or(b=c)
then writeln('равнобедренный')
else writeln('неравнобедренный');
end<span>;</span></span></span>
var
A, r:real;
N, s:integer;
begin
s := 1;
write('a = '); readln(a);
write('n = '); readln(n);
r := a;
while r <= n do
begin
writeln(s);
inc(s);
r := r * a;
end;
if a > n then
writeln(a , ' в любой степени >= 1 будет больше числа ', n);
end.