Напишите программу, которая в последовательности натуральных
10-11 класс
|
чисел определяет сумму чисел, кратных 3. Программа получает на
вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 3.
Количество чисел не превышает 100. Введённые числа не превышают 300.
Программа должна вывести одно число – сумму чисел, кратных 3.
не уверена но думаю так:
var a,s : integer;
begin
s:= 0
readln (a);
while a<>0 do
begin
if(a mod 5=10) and (a mod 2=0) then
s:=s+1
readlln(a)
end
writeln(s)
end
Другие вопросы из категории
сгенерируйте натуральное число в интервале от 100 до 900. Найдите трехзначное
число, состав ленное из тех же цифр, но записанных в обратном порядке.
Данную задачу:
Для
записи текста использовали 256-символьный алфавит. Какой объём информации в
байтах содержат 15 страниц текста, если на каждой странице расположено 32
строки по 64 символа в строке?
Нужно оформить в таком виде (записи):
2i=? => ? символ=? бит
выбрать людей , которые получат премию из всех сотрудников фирм.В ответе укажите только число?
Сергея нет скоростного доступа в Интернет, но есть возможность получать информацию от Кати по телефонному каналу со средней скоростью 2 13 бит в секунду. Сергей договорился с Катей, что она скачает для него данные объемом 9 Мбайт по высокоскроростному каналу и ретранслирует их Сергею по низкоскоростному каналу. Компьютер Кати может начать ретрансляцию данных не раньше, чем им будут получены первые 1024 Кбайт этих данных. Каков минимально возможный промужеток времени (в секундах) с момента начала скачивания Катей данных до полного их получения Сергеем?
Читайте также
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6. Пример работы программы: Входные данные Выходные данные 3 12 25 6 18 20.2
чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3.Количество чисел не превышает 100. Введённые числа не превышают 300.Программа должна вывести одно число – сумму чисел, оканчивающихся на 3.
Паскаль
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.