Напишите программу, которая в последовательности натуральных чисел определяет количество всех четных чисел, кратных 9. Программа получает на вход натуральные числа количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0
Ответы
Ответ дал:
1
Ответ:
Python
summ = 0
while True:
i = int(input())
if i == 0:
break
else:
if i % 2 == 0 and i % 9 == 0: summ += 1
print(summ)
Объяснение:
PascalABC
var k,i:integer;
begin
k:=0;
repeat
begin
readln(i);
if (i <> 0) and(i mod 2 = 0) and (i mod 9 = 0) then inc(k);
end;
until i = 0;
write(k)
end.
Ответ дал:
1
PascalABC.NET:
- ##
- var c := 0;
- repeat
- var x := ReadInteger;
- if x = 0 then break;
- if x.IsEven and x.Divs(9) then c += 1;
- until false;
- c.Print
Приложения:
![](https://st.uroker.com/files/206/2063287a2435077ab0409ba1e005c66b.jpg)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад