Заполнить массив вещественных чисел вводом с клавиатуры. Посчитать сумму и произведение элементов массива. Вывести на экран сам массив, полученные сумму и произведение его элементов.
- Присвоить переменной, в которой будет храниться сумма, значение 0, а переменной для произведения — значение 1.
- В цикле увеличивая индекс массива от начала до конца
- считывать с клавиатуры число и записывать его в текущую ячейку массива,
- увеличивать переменную с суммой на введенное число.
- умножать переменную с произведением на введенное число.
Pascal
сумма элементов массива паскаль
const N = 10;
var
a: array[1..N] of real;
sum, mult: real;
i: integer;
begin
sum := 0;
mult := 1;
for i:=1 to N do begin
read(a[i]);
sum := sum + a[i];
mult := mult * a[i];
end;
for i:=1 to N do write(a[i]:5:2);
writeln;
произведение чисел
writeln(sum:5:2);
writeln(mult:5:2);
end.
4.3 2.3 4.5 3.3 8.3 1.2 8.3 9.1 2.3 3.6
4.30 2.30 4.50 3.30 8.30 1.20 8.30 9.10 2.30 3.60
47.20
914812.11
Язык Си
#include
#define N 10
main() float a[10], sum, mult;
int i;
sum = 0;
mult = 1;
for (i=0; i < 10; i++) scanf(«%f»,
sum += a[i];
mult *= a[i];
>
for (i=0; i < 10; i++) printf(«%.2f «, a[i]);
>
printf(«n%.2fn», sum);
printf(«%.2fn», mult);
>
Python
сумма элементов массива python (питон)
a = [0]*10
s = 0
m = 1
for i in range(10):
a[i] = float(input())
s += a[i]
m *= a[i]
print(a)
print(s)
print(‘%.4f’%m)
КуМир
алг сумма элементов
нач
цел N=10
вещ таб a[1:N]
вещ sum, mult
цел i
sum := 0
mult := 1
нц для i от 1 до N
ввод a[i]
sum := sum + a[i]
mult := mult * a[i]
кц
нц для i от 1 до N
вывод a[i], » »
кц
вывод нс, sum, нс
вывод mult
кон
Basic-256
dim a(10)
sum = 0
mult = 1
for i=0 to 9
input a[i]
sum = sum + a[i]
mult = mult * a[i]
next i
for i=0 to 9
print a[i] + » «;
next i
print
print sum
print mult
Источник: gospodaretsva.com
Написать программу которая подсчитывает произведение натуральных чисел от 1 до n паскаль
Даю 45 балов! Срочно!
напишите программу на паскале, которая:
С клавиатуры вводится натуральное число N. Программа должна найти
СУММА И КОЛИЧЕСТВО ЧЕТНЫХ И НЕЧЕТНЫХ ЧИСЕЛ В ДИАПАЗОНЕ | C# ДОМАШНИЕ ЗАДАНИЯ | #4
факториал этого числа (обозначается как N!) – произведение всех натуральных чисел
от 1 до N.
Пример:
5! = 1 * 2 * 3 * 4 * 5 = 120
5 (1 оценка)
555kirill555k 1 год назад
Светило науки — 39 ответов — 54 помощи
Ответ:
writeln(‘Введите число N’);
for i := 1 to N do
Объяснение:
В var нужен uint для того чтобы вычислять большие числа;
Источник: vashurok.com
прикладная математика
(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла
В прошлом году Вася пошел в школу. Он изучает таблицу умножения чисел от 1 до 100 в десятичной системе счисления, а поскольку запомнить такую таблицу очень сложно, то Васе придется очень долго ее зубрить. Составьте для Васи программу, которая поможет ему проверять свои знания.
Входные данные
Ввести три натуральных числа A, B и C через пробел. Числа A и B Выходные данные
Вывести на экран YES в том случае, если A*B=C и вывести NO в противном случае.
Тесты
№
ВВОД
ВЫВОД
Задача 2. «Золото племени»
(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла
Главный вождь племени не умеет считать. В обмен на одну из его земель вождь другого племени предложил ему выбрать одну из трех куч с золотыми слитками. Но вождю первого племени хочется получить наибольшее количество золотых слитков. Помогите вождю сделать правильный выбор!
Входные данные
В первой строке ввода записаны три натуральных числа через пробел. Каждое из чисел не превышает 32767.
Выходные данные
На экран нужно вывести одно целое число — максимальное количество слитков, которые может взять вождь.
Тесты
№
ВВОД
ВЫВОД
2
30589 234 6364
30589
(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла
В свободное время одноклассники Вася и Петя любят играть в различные логические игры: морской бой, крестики-нолики, шахматы, шашки и многое другое. Ребята уже испробовали и поиграли во всевозможные классические игры подобного рода, включая компьютерные. Однажды им захотелось сыграть во что-нибудь новое, но ничего подходящего найти не удалось.
Тогда Петя придумал следующую игру «Угадайка»: Играют двое участников. Первый загадывает любое трехзначное число, такое что первая и последняя цифры отличаются друг от друга более чем на единицу. Далее загадавший число игрок переворачивает загаданное число, меняя первую и последнюю цифры местами, таким образом получая еще одно число.
Затем из максимального из полученных двух чисел вычитается минимальное. Задача второго игрока – угадать по первой цифре полученного в результате вычитания числа само это число. Например, если Вася загадал число 487, то перестановкой первой и последней цифры он получит число 784.
После чего ему придется вычесть из 784 число 487, в результате чего получится число 297, которое и должен отгадать Петя по указанной первой цифре «2», взятой из этого числа. Петя успевает лучше Васи по математике, поэтому практически всегда выигрывает в играх такого типа. Но в данном случае Петя схитрил и специально придумал такую игру, в которой он не проиграет Васе в любом случае. Дело в том, что придуманная Петей игра имеет выигрышную стратегию, которая заключается в следующем: искомое число всегда является трехзначным и вторая его цифра всегда равна девяти, а для получения значения последней достаточно отнять от девяти первую, т.е. в рассмотренном выше случае последняя цифра равна 9-2=7. Помогите Пете еще упростить процесс отгадывания числа по заданной его первой цифре, написав соответствующую программу.
Входные данные
В единственной строке ввода задана цифра К, соответствующая первой цифре полученного Васей в результате вычитания наименьшего загаданного Васей значения из наибольшего.
Выходные данные
На экран нужно вывести значение полученной Васей разности в виде трехзначного числа.
Тесты
№
ВВОД
ВЫВОД
Задача 4. «Произведение»
(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла
Требуется посчитать произведение целых чисел от 1 до N.
Входные данные
В строке ввода записать единственное натуральное число N, не превышающее по абсолютной величине 15.
Выходные данные
В строке вывода — целое число, являющееся произведением чисел от 1 до N.
Пример
№
ВВОД
ВЫВОД
2
14
87178291200
1.
var
a,b,c:longint;
begin
read(a,b,c);
if (a*b=c) then writeln(‘YES’) else writeln(‘NO’);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
Большое спасибо
4.
var
i,n:byte;
fact:longint;
begin
read(n);
fact:=1;
if n for i:=1 to n do
fact:=fact*i;
writeln(fact);
end else begin
if (n = 12) then writeln(‘479001600’);
if (n = 13) then writeln(‘6227020800’);
if (n = 14) then writeln(‘87178291200’);
if (n = 15) then writeln(‘1307674368000’);
end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
Источник: primat.org