var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.
Var a,i,n:integer;
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
Program zadacha;vara,b:real;beginwriteln('vvedite dva chisla');read(a,b);if a>b then writeln(a,'>',b);if a<b then writeln(a,'<',b);if a=b then writeln(a,'=',b);end.
# Используется версия python 3.6.
# 1. Список с положительными и отрицательными десятичными числами.
x = [1.0, -6.54, 10.5, 3.6, -12.6, -26.3, -50.8, -40.2, 5.0, 14.2, 50.9]
# 2. Нахождение максимального числа среди тех чисел, которые # находятся в интервале: (-30, -10).
cond2 = max([el for el in x if el > -30 and el < -10])
# 3. Нахождение минимального числа среди тех, у которых # целая часть заканчивается на 6.
cond3 = min([el for el in x if abs(int(el)) % 10 == 6])
# 4. Нахождение среднего арифметического всех чисел и
# замена всех мин. чисел на среднее арифметическое.
x_copy = x.copy()
mean = sum(x) / len(x)
for idx, el in enumerate(x_copy):
if el < mean:
x_copy[idx] = mean
# 5. Запись в новый список тех положительных элементов, у которых
# в дробной части есть 5.
new_list = list()
for el in x:
str_el = str(el)
pos_point = str_el.find('.')
fraction = str_el[pos_point:] # дробная часть числа в виде строки
if '5' in fraction:
new_list.append(el)
print(x, cond2, cond3, x_copy, new_list, sep='\n')