Напишите программу которая в последовательности целых чисел определяет количество нечетных чисел, кратных 3. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести два числа:длину последовательности и количество нечетных чисел, кратных 3
jodonac700:
pascal или c++?
Ответы
Ответ дал:
1
Ответ:
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.
Ответ дал:
0
// 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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
7 лет назад