написать программу на C# Найти: а) произведение всех целых чисел от 8 до 15; б) произведение всех целых чисел от a до 20 (значение a вводится с клавиатуры; 1 a 20); в) произведение всех целых чисел от 1 до b (значение b вводится с клавиатуры; 1 b 20); г) произведение всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b a

var

n,s:longint;

n1:integer;

begin

readln(n);

s:=0;

while n <> 0 do begin

n1:=n mod 10;

if n1 mod 2 = 0 then s:=s+n1;

n:=n div 10 end;

writeln('s=',s)

end.

Объяснение:

картинка

Строки 2 и 3 можно менять местами

Строки 5 и 6 можно менять местами

var

n1:integer;

n,s:longint;

begin

s:=0;

readln(n);

while n <> 0 do begin

n1:=n mod 10;

if n1 mod 2 = 0 then s:=s+n1;

n:=n div 10 end;

writeln('s=',s)

end.

Описываем переменные

Вводи число

Начальное значение переменной для накопления суммы равно 0

Цикл (пока число неравно 0):

вычисляем последнюю цифру числа

проводим проверку на чётность, если пройдена, то суммируем

отбрасываем последнюю цифру числа

Выводим результат