Регистрация
borkunovanasta
18.12.2022 01:13
Информатика
Есть ответ 👍

ЛЮДИ ДОБРЫЕ ИЗВОЛЬТЕ БЕДНОМУ НАРОДУ. Составьте таблицу истинности по данной задаче!

​

274
460
Посмотреть ответы 1

Ответы на вопрос:

kkatya3082
kkatya3082
4,8(24 оценок)

program zadacha;

var a,n,i: integer;

begin

read(a,n);

for i: =1 to n do

      a: =a*a;

writeln(a);

end.

 

или как вариант

 

program zadacha;

var a,n: integer;

begin

read(a,n);

x: =exp(ln(a)*n);

writeln(x);

end.

Популярно: Информатика