сервис вопросов и ответовСоставить программу в PASCAL.
10-11 класс|
|
1. В последовательности чисел подсчитать произведение чисел, кратных 3.
Konstantintodorov
27 марта 2015 г., 12:50:35 (9 лет назад)
Bdjwheghw
27 марта 2015 г., 14:51:34 (9 лет назад)
var x, sum: integer;
begin
sum := 1;
writeln('Введите последовтельность чисел.', #10, '0 - остановить программу, получить результат.');
repeat
readln(x);
if(x mod 3 = 0) and (x <> 0) then sum := sum * x;
until(x = 0);
writeln('Произведение числе кратных 3: ', sum);
end.
Ответить
Другие вопросы из категории
если количество изделий более 100, но менее 200, то поставить знак "!",
- если количество изделий от 10 до 100 и это автобусы, то поставить знак "?",
- в остальных случаях поставить знак "*".
как записать формулу в Exsl
Помогите, пожалуйста!
заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная
Читайте также
Помогите пожалуйста!! ) составить программу в "Pascal abc"!!)
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
1. Составить программу для нахождения наибольшего числа из трех чисел.
2. Составить программу для упорядоченное двух элементов по убыванию.
1)составить программу, организующую массив записей о книгах, ввести информацию по следующим полям:автор, название, год издания. Провести сортировку и
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
помогите составить программу!пожалуйста!!!!ооочень надо
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Нужно составить программу с предусловием и постусловием!
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".
Вы находитесь на странице вопроса "Составить программу в PASCAL.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.