выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.
10-11 класс
|
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.
числа вводятся вручную, или в цикле, начиная с 2?
Другие вопросы из категории
Читайте также
выведите их произведение. Если третье и четвёртое числа больше100, то выведите среднее арифметическое всех пяти чисел. Если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. Иначе, выведите третье и пятое числа, увеличив их в два раза.
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
Вводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.
. Изменить его левую цифру на "9"
(написать программу на языке паслкаль)