Дано целое число а и целое число n (n> 0) используя цикл ,вывести все степени числа а от 1 до n

261

464

Посмотреть ответы 3

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

макс3024

Информатика

4,4(55 оценок)

Var a,s: real; n,i: byte; begin write('введите вещественное a: '); readln(a); repeat write('введите целое n (n> 0): '); readln(n); until (n> 0); s: =1; for i: =1 to n do begin s: =s*a; writeln(a,' в степени ',i,' = ',s); end; readln; //в pascalabc.net - не обязательно end.

Юлья0000000

Информатика

4,8(30 оценок)

Program for16; var a, pow: real; n, i: integer; begin write('введите a и n: '); read(a, n); pow : = 1; for i : = 1 to n do begin pow : = pow * a; // умножаем предыдущую число на а writeln(a, ' в ', i, ' степени равно ', pow); end; end .

mranishanbaev

Информатика

4,7(27 оценок)

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var a: =readreal('длина прямоугольника: '); var b: =readreal('ширина прямоугольника: '); writeln('площадь этого прямоугольника ',a*b) end. пример длина прямоугольника: 13.6 ширина прямоугольника: 5 площадь этого прямоугольника 68