Мені потрібно вирішити на мові паскаль будь-яку задачу. Але не про трикутник.
10-11 класс
|
Сподіваюсь на допомогу!
program CalcPow;
var
num, pow: integer;
function Pow(Fnum, Fpow:integer):integer
var
count,answer:integer;
begin
while count<=Fpow do
begin
Fnum=num*num;
end;
Pow=Fnum;
end;
begin
writeln(‘Введи степень и возводимое число’); readln(num,pow);
writeln(num,‘в степени’ ,pow,‘равно’, Pow(num,pow))
end;
Другие вопросы из категории
Царевна-лягушка съедает ежедневно на 20 % комаров больше, чем в предыдущий день, и еще 2 комара. Через сколько дней количество съеденных комаров в день превысит 100, если в первый день было съедено 12 комаров.
Воспользуйтесь словесным алгоритмом.
1)i:= 1
2)s:=12
3)если s<=100, то п.4, иначе 6
4)i:=i+1
5)s:=1.2*s+2, перейти к п.3
6)вывод i
7)конец
(укажите несколько вариантов ответа)
1) Оператор архива
2) Опытный пользователь
3) Гость
4) Пользователь
5) Администратор
Читайте также
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
данных integer, и операции div mod
программу на языке Паскаль для следующих задач:
1. Найдите сумму всех чисел от
острові зі стороною а м. перебували к Робінзонів. Чи не порушені їхні права на житло, якщо на кожного Робінзона повино придбати S м^2 площі острова? Скільком новим Робінзонам ще вистачить місця на острові?