сервис вопросов и ответовПаскаль Найти произведение четных натуральных чисел, меньших 100
10-11 класс|
|
Krepilshick
02 июня 2013 г., 21:51:36 (10 лет назад)
Oowd
02 июня 2013 г., 23:00:18 (10 лет назад)
var x,y:integer;
Begin
x:=2;
y:=1;
while x<>100 do
Begin
y:=y*x;
x:=x+2;
end;
write(y);
End.
Числа меньше ста, все правильно. Не понял причину, почему модератор отправил на доработку.
DashaMoxitova
03 июня 2013 г., 1:19:22 (10 лет назад)
var i,s:integer;
Begin
s:=1;
for i := 1 to 99 do
if i mod 2 = 0 then s:=s*i;
writeln(s);
End.
Ответить
Другие вопросы из категории
ПАСКАЛЬ 1)В двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы . 2) Заменить все элементы главной
диагонали на максимальный элемент той же строки
Задачи на массив в Turbo Pascal
1) Определите ,на сколько отличается рост самого высокого и самого низкого учащегося в классе?
2) результаты переписи населения, которые хранятся в памяти компьютера. Элемент массива -год рождения жителя. Подсчитайте общее число жителей, родившихся раньше 1958 года.
3) С 8 до 20 часов температура воздуха измерялась ежечасно, и результаты измерения заносились в компьютер. Известно, что в течение этого времени температура понижалась. Напишите программу, определяющую, в котором часу была впервые отмечена отрицательная температура
Вовочка написал на доске равенство 101=11011. Учитель информатики сказал, что это равенство будет верным, если понимать его как запись одного и того же
числа, но в разных системах счисления. Найдите основания этих систем.
Читайте также
Вывести и подсчитать сумму четных положительных чисел меньших 100.
Написать на Паскале)
Вы находитесь на странице вопроса "Паскаль Найти произведение четных натуральных чисел, меньших 100", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.