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.

0 0

3 года назад

Прочитать ещё 2 ответа

1.Пользователь работал с каталогом. D:\ ДОКУМЕНТЫ\ФОТО\2011\ВЕСНА. Сначала он поднялся на 3 уровня вверх, потом спустился в ката

SolarBeam [7]

<span>3) D:\ ДОКУМЕНТЫ \ЭКЗАМЕН \ИНФОРМАТИКА</span>

0 0

4 года назад

Упростить логическое выражение ¬((X&Y)∨(¬X&¬Y))&(X∨¬Y)

Gipsy33

Ответ:ur momgay

Объяснение:stall like

0 0

4 года назад

Ввести 2 числа. Если максимальное из них чётное, то вывести его. В другом случае вывести произведение минимального числа и полов

E0409 [269]

using System;

namespace ConsoleApp6

{

class Program

{

static void Main(string[] args)

{

int x, y;

x = int.Parse(Console.ReadLine());

y = int.Parse(Console.ReadLine());

if (Math.Max(x, y) % 2 == 0)

Console.WriteLine(Math.Max(x, y).ToString());

else

Console.WriteLine((Math.Min(x,y)*Math.Max(x,y)/2.0).ToString());

Console.ReadKey();

}

0 0

4 года назад