с клавиатуры вводятся 10 чиселю найдите произведения делящихся среди них на 3. программа,помогитееее написать ее
5-9 класс
|
var a:array[1..10]of integer;
i,s:integer;
begin
s:=1;
for i:=1 to 10 do begin
readln(a[i]);
if a[i] mod 3=0 then s:=s*a[i];
end;
writeln(s);
end.
Другие вопросы из категории
Кирова. Известно что Боря жил в одной комнате с мальчиком из Кирова и ни один из этих двух мальчиков никогда не был ни в Москве, ни в санкт-петербурке. Гриша играл в одной комнате с мальчиком из Москвы, а вечерами к ним заходил приятель из Кирова. Егор и мальчик из Москвы увлекаются игрой в шахматы . кто из ребят откуда приехал?
Добрый день, имеется вот такая ситуация.
Помогите, пожалуйста, написать условие, по которому бы проверялась принадлежность точки к закрашенной области.
Запишите в виде предложения на русском языке смысл математической формулы: S=ab
Читайте также
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
экран стоимость 1,2,..15 порций мороженого. 3.найдите сумму первых пятидесяти натуральных чисел,кратных 12. 4. с клавиатуры задаётся 10 чисел.найдите произведение чисел,меньших 10.найдите среднее арифметическое чисел кратных 3.
cпасибо огромное!