program power;
var i, n, x, res:integer;
begin
readln(x, n);
res:=x;
for i:=1 to (n-1) do
begin
res:=res*x;
end;
writeln(res);
end.
вообще так вроде нельзя писать (слишком много elif ), но я пока не придумала как это сделать по-другому
Объяснение:
вариант 1
for data in range(1,8):
data = int(input())
if data == 1:
print("Monday")
elif data == 2:
print("Tuesday")
elif data == 3:
print("Wednesday")
elif data == 4:
print("Thursday")
elif data == 5:
print("Friday")
elif data == 6:
print("Saturday")
elif data == 7:
print("Sunday")
вариант 2
data = int(input())
if data == 1:
print("Monday")
elif data == 2:
print("Tuesday")
elif data == 3:
print("Wednesday")
elif data == 4:
print("Thursday")
elif data == 5:
print("Friday")
elif data == 6:
print("Saturday")
elif data == 7:
print("Sunday")
program Hello;
var a,k:string;
var i:integer;
begin
read(a);
for i:=0 to length(a) do begin
k := k+a[length(a)-i];
end;
write(k);
end.
Объяснение:
заводим две переменных типа string(строковой тип данных)
а и к
и еще не забудем счетчик для цикла i
строковой тип данных это массив из символов,то есть мы можем извлекать из него элементы с цикла
объявим цикл for от 0 до длины нашей строки,которую возвращает функция length() и с конкатенации(сложения строк,например: 'a'+'b'= 'ab) добавляем к новой строке "к" элемент length()-i строки а.
Program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.