Найти произведение натуральных чисел от 1 до 10

program n1; uses crt; var i,p: integer; beginclrscr; p: =1; for i: =1 to 10 do p: =p*i; writeln(p); readlnend.

Ответ 5 код на ruby t = {} for i in 10000..99999       n, a, b, k =i, 0, 0, 0       while n > 0             k += 1             a += n % 10 if k % 2 == 0             b += n % 10 if k % 2 == 1             n = n / 10       end       s = [a,b].max.to_s + [a,b].min.to_s       next if  not ["50", "1510", "150", "1520", "2015", "1925", "1015", "215", "2519"].include? (s)       if t[s] == nil then t.store(s, 1) else t[s] += 1 end end p t вывод {"50"=> 15, "150"=> 69, "1510"=> 837, "2015"=> 144, "215"=> 168}

Первая программа. program d_and_e; var     a,b,sum_d,sum_e: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второеое число: ');   readln(b);   sum_d: =(a div 10) + (b div 10);   sum_e: =(a mod 10) + (b mod 10);   writeln('сумма десятков чисел: ', sum_d);   writeln('сумма единиц чисел: ', sum_e); end. вторая программа. program d_and_e; var     a,b,mult_d1_e2,mult_e1_d2: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второе число: ');   readln(b);   mult_d1_e2: =(a div 10) * (b mod 10);   mult_e1_d2: =(a mod 10) * (b div 10);   writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);   writeln('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end. третья программа. program d_and_e; var     a,b,mult_d1_e2,sum_e1_d2: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второе число: ');   readln(b);   mult_d1_e2: =(a div 10) * (b mod 10);   sum_e1_d2: =(a mod 10) + (b div 10);   writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);   writeln('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.