ребят помогите нада написатьребят помогите нада написать програму в паскале через оператор for
5-9 класс
|
напишіть програму обчислення добутків
a(a+1)(a+2)...(a+n+1)
program qq;
var i:byte;
a,n,s:integer;
begin
writeln ('Введите a');
readln (a);
writeln ('Введите n');
readln (n);
for i := 1 to n+1 do
s:= s + a+i ;
s:= s*a;
writeln ('Ответ :' , s);
end.
Другие вопросы из категории
2) Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет ее до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.
Нужно менять саму строку, а не просто символы выводить
Читайте также
больше) пж помогите) надо еще написать почему они плохо влияют или привести пример..) Заранее спасибо)
№1 В области 12 райнов. Известны количество жителей каждого района (в тысячах человек) и плотность населения в нем (тыс. чел./ км2). Определить общую площадь территории области.
№2 Известны результаты двух спортсменов-пятиборцев в каждом из пяти видов спорта в баллах. Определить сумму баллов, полученных каждым спортсменом.
Ребят, помогите пожалуйста.
Нужно написать программу (или программы) для вычисления суммы, произведения и среднего арифметического для трех чисел.
содержатся только положительные элементы из исходного масива ,упорядочить этот новый массив по возрастанию.
Даны массивы Н1..Н5 шифры предприятий 1ой группы
НН1..НН8 шифры предприятий 2ой группы
N1..N5 наименование продукций предприятий 2ой группы
NN1..NN8наименование продукций предприятий 2о1 группы
Вывести списки предприятий выпускающих одинаковую продукцию