Найти произведение всех чисел от 1 до M (M вводится пользователем). Проверить, является ли это произведение трехзначным числом.
Задача на языке C# (Visual Studio Windows Forms)

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

var

mas : array[1..15] of integer;

i: integer;

begin

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

end;

v=331+ 0,6*t

в зимний день- v=331+ 0.6*(-35)=310 м/с

в летний день-   v=331+ 0.6*30=349 м/с

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.