Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в
5-9 класс
|
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 3. (PascalABC)
uses crt;
var a:array [1..100] of integer;
i,s,n:integer;
begin
clrscr;
write('n<100, n=');
read(n);
write('a[i]<300, a[i]:');
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 3=0) then s:=s+a[i];
end;
write('summa=',s);
end.
Другие вопросы из категории
2. выяснить что значит open source software
3. ответить на вопрос действительно ли бесплатные программы бесплатны? Помогите пожалуйста
1.5 Кбайт= ? байт
512 бит= ? байта
2 Мбита= ? Кбайт
4 бита= ? байта
3072 Кбайт = ? Мбайта
Помогите пожалуйста.
а) 121 в 8 степени б) 171 в 8 степени в) 69 в 16 степени г) 10000001 во 2 степени
а)1024 байта б)1024 бита в) 512 байтов г) 512 битов
Читайте также
оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:
Входные данные Выходные данные
14 168
24
144
22
12
0
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4. Пояснение: цикл while x<>0 do с условием if (x mod 6=0) and (x mod 10=4)
получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входят в последовательность) .
Количество чисел не привышает 1000. Введеные числа не привышают 30000.
Программа должна вывести одно число - наибольшее из всех нечеиных введеных чисел.
Пример работы программы:
Входные данные Выходные данные
15 17
20
17
0