Question

НАПИСАТЬ ПРОГРАММУ!ПОМОГИТЕ!!!while и repeat1)напечатать все отрицательные числа из диапазона от а до б, с шагом h.2)Напишите программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10^9, и выводится сумма четных цифр этого числа и 0, если таких цифр в числе нет

Answer 1

1.program z;
var a,b,c:integer;
begin
read(a,b,c);
while (a<b) and (a<0) do
begin
write(a:4);
a:=a+c;
end;
end.
2.program z;
var a,b,c:integer;
begin
read(a,b,c);
repeat
write(a:4);
a:=a+c;
until (a>b) or (a>-1);
end.

Answer 2

1) Программа для печати всех отрицательных чисел из диапазона от а до б с шагом h:

a = int(input("Введите начало диапазона: "))
b = int(input("Введите конец диапазона: "))
h = int(input("Введите шаг: "))

if h > 0:  # Если шаг положительный, меняем его на отрицательный
    h = -h

i = a
while i >= b:
    print(i)
    i += h

2) Программа для суммирования четных цифр натурального числа N:

N = int(input("Введите натуральное число: "))
sum_even_digits = 0

while N > 0:
    digit = N % 10  # Получаем последнюю цифру числа
    if digit % 2 == 0:  # Проверяем, является ли цифра четной
        sum_even_digits += digit
    N = N // 10  # Удаляем последнюю цифру числа

if sum_even_digits == 0:
    print(0)
else:
    print("Сумма четных цифр числа:", sum_even_digits)

Обратите внимание, что в программе 2 используется оператор "//" для целочисленного деления, чтобы получить целую часть от деления.