Написать программу вычисления a^n, где a и n целые числа, при условии, что n> 0
135
398
Ответы на вопрос:
Для нерекуррентного вычисления на с это будет примерно так: result = 1; for (index = 0; index < n; index++) { result *= a; }
program sekki;
var a,first,second,sum: integer;
begin
writeln('введите трехзначное число');
readln(a);
first: = a div 100;
second: = a div 10 mod 10;
if (first < second) and (first mod 2 < > 0) then
sum: = first + second;
writeln(sum);
end.
Популярно: Информатика
-
tanygina06718.09.2020 09:29
-
vkonareva30.04.2023 11:26
-
volgaslob01.09.2021 13:55
-
Ульяна156114.03.2023 03:41
-
leradorozhnyak06.04.2020 20:18
-
ElenaComarova06.05.2021 06:33
-
lty22005123.06.2022 07:45
-
Lollital27.02.2020 05:08
-
камидь05.01.2023 10:05
-
раф15рус22.05.2020 14:57