Написать программу на языке pascal для вычисления n-ой степени заданного числа!
156
182
Ответы на вопрос:
Var a, i, n, p: integer; begin p : = 1; writeln('введите число: '); readln(a); writeln('введите степень числа: '); readln(n); for i : = 1 to n do begin p : = p * a; end; writeln('ваше число: ', p); end.
Var n, a, b, c: integer; begin read(a,n); b: =1; for b: = 1 to n do begin b: =b*a; end; writeln(b); end.
Впервой находятся все 4-значные числа, а не только симметричные. паскаль авс. program ilgiz98; var i: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln('программа находит 4-значные числа, которые делятся на 27'); writeln('список таких чисел: '); for i: =1000 to 9999 do if (i mod 27)=0 then writeln(i); end. program ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln('среди элементов массива программа находит числа, которые больше заданного числа n и одновременно кратны 5'); write('введите число n '); readln (n); writeln('*** ***'); k: =0; writeln('массив чисел: '); for i: =1 to 20 do begin mass[i]: =random(1000)-500; writeln(mass[i]); if (mass[i]> n) and ((mass[i] mod 5)=0) then k: =k+1; end; writeln(); writeln('всего найдено ',k,' таких чисел'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Kateriна06.11.2022 07:19
-
KaTeRiN1330.07.2020 15:30
-
gleb09090204.06.2021 20:50
-
uglyfrosha04.08.2021 12:24
-
nigap30.03.2021 02:11
-
Элчанкин08.05.2020 02:03
-
olga87709.08.2020 07:14
-
Nasva18.04.2023 22:43
-
виктория200314112.02.2022 12:06
-
sgymgjvb31.08.2020 14:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.