Question

Написать программу решения задачи: Вводить целые числа с клавиатуры, пока не будет введен ноль. а) Найти сумму введенных чисел. b) Найти количество четных отрицательных чисел среди введенных. c) Найти максимальное число среди введенных.

Answer 1

//PascalABC.Net 3.2
begin
var max:=-1000000000;
var sum:=0; var count:=0; var a:=0;
repeat
a:=readinteger('Введите число: ');
if (a.IsEven) and (a<0) then inc(count);
if a>max then max:=a;
sum+=a;
until a=0;
writeln ('a) ', sum);
writeln ('b) ', count);
write  ('c) ', max);
end.

Answer 2

Программа на Python:

sum = 0
count_even_negative = 0
max_number = None

while True:
    num = int(input("Введите целое число: "))
    if num == 0:
        break
    sum += num
    if num < 0 and num % 2 == 0:
        count_even_negative += 1
    if max_number is None or num > max_number:
        max_number = num

print("Сумма введенных чисел:", sum)
print("Количество четных отрицательных чисел:", count_even_negative)
print("Максимальное число среди введенных:", max_number)

Эта программа позволяет пользователю вводить целые числа с клавиатуры до тех пор, пока не будет введен ноль. Затем программа вычисляет сумму введенных чисел, количество четных отрицательных чисел среди введенных и находит максимальное число среди введенных.

Answer 3

Программа на Python:

sum = 0
count_even_negative = 0
max_number = None

while True:
    num = int(input("Введите целое число: "))
    
    if num == 0:
        break
    
    sum += num
    
    if num < 0 and num % 2 == 0:
        count_even_negative += 1
    
    if max_number is None or num > max_number:
        max_number = num

print(f"Сумма введенных чисел: {sum}")
print(f"Количество четных отрицательных чисел: {count_even_negative}")
print(f"Максимальное число среди введенных: {max_number}")

Эта программа просит пользователя ввести целые числа с клавиатуры до тех пор, пока не будет введен ноль. Затем программа выводит сумму введенных чисел, количество четных отрицательных чисел среди введенных и максимальное число среди введенных.