Напишите программу которая в последовательности целых чисел определяет количество нечетных чисел, кратных 3. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести два числа:длину последовательности и количество нечетных чисел, кратных 3
Enot811
2
19.04.2020 00:03
0
Другие вопросы по теме Информатика
Лилиана4312
27.05.2019 10:20
konkina
27.05.2019 10:20
smelinkova
27.05.2019 10:20
амир299
27.05.2019 10:20
Lisaaaaakot
27.05.2019 10:30
mrfotuna14
27.05.2019 10:30
palieva69
27.05.2019 10:30
danilatnt
27.05.2019 10:30
Arina200444
27.05.2019 10:30
Популярные вопросы
- Составьте свод правил на тему: как нужно вести себе в лесу...
3 - Укажите номера верных утверждений. 1.если гипотенуза одного прямоугольного...
3 - Решите уравнение 1)|х-4|=2. 2)|y+5|=3. 3)|3+x|=1,5. 4)|7-y|=-2....
2 - Определите, имеет ли корни уравнение 6х^2-5х+2=0 и если имеет,...
1 - Закончите определение. реакции при которых из одного сложного...
3 - Разность двух чисел равна 33.найдите эти числа если 30% от большего...
1 - Найдите корень уравнений 1) (2/3x+7/12): 6/11=1 5/6...
3 - На 150г известняка содержащего 90% caco3, подействовал избытком...
2 - Объедините оба предложения союзами weil или da. a) der kunde annulliert...
2 - Составьте сложные предложения со словами: верующие, флиант, прагматик,...
3
var
a, z, x: integer;
begin
z:=0;
x:=0;
read(a);
while a <> 0 do
begin
if (a mod 3 = 0) and (a mod 2 <> 0)
then
z := z + 1 ;
x:=x+1;
read(a);
end;
writeln(x,' ', z);
end.
// PascalABC.NET
begin
var (n, k) := (0, 0);
var a: integer;
repeat
a := ReadInteger;
if a <> 0 then
begin
n += 1;
if a.IsOdd and (a mod 3 = 0) then
k += 1
end
until a = 0;
Print(n, k)
end.