сервис вопросов и ответовРебята кто разбирается в Pascal ABC помогите пожалуйста Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0).
5-9 класс|
|
Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз). 2.Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. 3.Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An. ,
OlyaAlla
21 нояб. 2014 г., 18:55:07 (9 лет назад)
Valenbur
21 нояб. 2014 г., 21:45:42 (9 лет назад)
1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.
2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.
3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.
Ответить
Другие вопросы из категории
Заполнить пропуски цифрами:
_____Кбайт=______байт=2 в 13 степени бит.
в некотором текстовом редакторе используется только шрифт times new roman ,для которого может быть установлен один из двух размеров.Кроме того имеются
три кнопки,позволяющие установить полужирное,курсивное и подчеркнутое начертание символов.Сколько существует различных вариантов форматирования слова "текст"?
По каналу один за другим идут три теплохода "Обь", "Восток" и "Петропавловск". Навстречу им идут один за другим теплоходы : "Мир", "Енисей" и "Россия".
Канал такой ширины, что два теплохода в нём разойтись не могут. Но у канала с одной стороны есть ответвление, в котором может поместиться один теплоход. Как можно теплоходам разойтись и продолжить свой путь?
СРОЧНОООООООООООООООООООООООО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Читайте также
ПОМОГИТЕ ПЛИЗ!!! Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An = A•A•...•A (числа
A перемножаются N раз).
Кто-нибудь кто хорошо разбирается в Pascal ABC,помогите,пожалуйста! 1.Нарисовать круг, разделённый на N одинаковых частей, окрашенных в разный цвет.
Количество частей N вводится с клавиатуры. 2.Нарисовать пирамиду из разноцветных прямоугольников.Количество прямоугольников вводится с клавиатуры. 3.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует) Вычислить произведение максимального и минимального числа. 4.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых двух чисел нуля нет. Найти сумму двух наибольших чисел. 5.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых трех чисел нуля нет. Найти среднее арифметическое трёх наименьших чисел.
Помогите решить задачи на цикл с параметром.
Решения оформить как в Паскале.
1) задать 5 чисел. найти среднюю сумму положительных чисел, произведение чисел, некратных 12 и количество четных чисел среди заданных
2)В фирме работают 5 сотрудников. какую сумму нужно заказать в банке для выплаты им заработной платы, если их зарплата меняется каждый месяц и задаётся бухгалтером с клавиатуры ?
3)Задать 20 чисел.найти среднее произведение чисел, больших 8 и сумму чисел, некратных 15.
Помогите с задачей на pascal abc - на теме отсутвовал... Задача: НА ЗАДАЧУ ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО, РАВЕН ЛИ КВАДРАТ ЭТОГО ЧИСЛА
СУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста
Pascal ABC Помогите пожалуйста
Пешеход прошел 51км за 71 час
Какое расстояние пройдет пешеход за 72ч?
Вы находитесь на странице вопроса "Ребята кто разбирается в Pascal ABC помогите пожалуйста Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0).", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.