Написать программу, в которую вводят 10 чисел с клавиатуры и находят их произведение + составить блок-схему. Помогите, пожалуйста.
10-11 класс
|
Вот программа, блок-схему сами.
P.S Вылетает при вводе больших чисел
Program P1;
Var n, i : Integer;
s : LongInt;
Begin
s := 1;
For i := 1 to 10 do
Begin
Write('Введи ', i, ' число: ');
Readln(n);
s := s * n;
End;
Write('Произведение = ', s);
Readln;
End.
Другие вопросы из категории
Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные,
введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена
одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) ->
2.3
Стоимость покупки: 19.55 руб.
скорость увеличилась в пять раз. Какое время ей понадобилось, чтобы скачать весь файл размером 910 Мбайт. Ответ записать в часах, округлив по математическим правилам до целых чисел (без единиц измерения).
1)5* корень( 2х- у^2) - у^3/5
2)корень (у^4)
Читайте также
произведение.
Буду очень благодарна!
2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.
матрица NxN. Программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты. Подсчитать общее количество чисел, меньших заданного А, и чисел, больших заданного В среди элементов, находящихся ниже побочной диагонали.
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
NxN. Программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты.
Найти в каждом четном по номеру столбце матрицы максимальный элемент и вычислить произведение этих элементов.