Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.

10-11 класс

Cthutq123 05 авг. 2013 г., 8:36:07 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Vanesska2002
05 авг. 2013 г., 9:10:18 (10 лет назад)

program zadacha;
var a,p,n,i:integer;
begin
writeln;
writeln('введи число n');{число, до которого перемножаем четные числа}
read(n);
p:=1;
i:=2;
while p<n do
begin 
write(i);
write(';');
p:=p*i;
i:=i+2;
end;
end.

+ 0 -
Ariadna10
05 авг. 2013 г., 11:15:16 (10 лет назад)

числа вводятся вручную, или в цикле, начиная с 2?

Ответить

Читайте также

Для пяти произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если первое, второе и пятое числа отрицательны, то

выведите их произведение. Если третье и четвёртое числа больше100, то выведите среднее арифметическое всех пяти чисел. Если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. Иначе, выведите третье и пятое числа, увеличив их в два раза.

1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и

полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.

Помогите пожалуйста в VBA

Вводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.



Вы находитесь на странице вопроса "выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.