написать программу на 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):
вычисляем последнюю цифру числа
проводим проверку на чётность, если пройдена, то суммируем
отбрасываем последнюю цифру числа
Выводим результат