Помогите, плиз! На завтра срочно надо. Написать программу на паскале, которая вводит 10 чисел с клавиатурой и находит их
10-11 класс
|
произведение.
Буду очень благодарна!
var
i, s, k: longint;
begin
s:=1;
write('Введите через пробел 10 чисел: ');
for i:=1 to 10 do
begin
read(k);
s:=s*k;
end;
write('Произведение: ', s);
end.
Другие вопросы из категории
языке или на одном из языков программирования алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «Таких чисел нет».
объяните решение пожалуйста программу не обязательно писать
и удовлетворяют след. свойству:
- слово совпадает с начальным отрезком латинского алфавита ('a','ab','abc' и т.д.)
P.s. Только решить её надо не использую строки.Вместо них array of char...
Пример ввода:
writeln('Введите предложение, символ конца - точка');
i := 0;
repeat
inc(i);
read(a[i])
until (a[i] = '.')or(i = n);
Заранее огромное спасибо.
Читайте также
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
B рублей положенная в банк если годовая прибыль составляет С процентов. (используя только mod div. 1 курс корочи) заранее спасибо
матрица NxN. Программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты. Подсчитать общее количество чисел, меньших заданного А, и чисел, больших заданного В среди элементов, находящихся ниже побочной диагонали.