ПОМОГИТЕ НА ЗАВТРА НУЖНО ОЧЕНЬ!) Напишите программу, вычисляющую сумму только тех из введенных чисел, которые делятся нацело на 6.
5-9 класс
|
var
a,i,n,s:integer;
begin
write('Сколько чисел будет введено? - ');
readln(n);
s:=0;
for i:= 1 to n do
begin
readln(a);
if a mod 6=0 then s:=s+a;
end;
writeln('Сумма чисел кратных 6 = ', s);
end.
Другие вопросы из категории
ОДНОКЛЕТОЧНАЯ АМЁБА КАЖДЫЕ 3 ЧАСА ДЕЛИТСЯ НА ДВЕ КЛЕТКИ. СКОЛЬКО АМЁБ БУДЕТ ЧЕРЕЗ 12 ЧАСОВ.
Использовать циклы. Заранее спасибо.
а) оказался хотя бы один черный:
б) оказался хотя бы один белый:
в) оказался хотя бы два черных:
о) оказался хотя бы два белых?
1)5 в 8 + 4 в 8; 2)41 в 8 + 41 в 16
Читайте также
( сейчас прошли циклические алгоритмы, нужна и блок-схема)
Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.
Задача 3: 1 марта в банк положили 1000 руб. Каждый месяц вклад увеличивается на 2% от имеющейся суммы.
а) за какой месяц величина процентной надбавки превысит 30 руб.?
б) через сколько месяцев размер вклада превысит 1200 руб.? Заранее спасибо)
Составить программу вывода тех двух значных чисел которые делятся на 9 без остатка
положительных чисел, которые вводятся с клавиатуры. 2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).