1) написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура 2) заданы действительные числа a , b , c и d . написать программу нахождения полусуммы наименьшего и наибольшего из них. 3) написать программу для вычисления суммы цифр числа , введенного с клавиатуры прошу

program goodluck51_1; uses crt; var  n,nt,sum,temp: integer; begin  write('введите 5-значное число ');   readln(n);   if (n< 10000) or (n> 99999) then write('вы ввели неправильное число ')  else      begin           nt: =n;           writeln('*** alphaues is ***');           writeln('***                  ok                        ***');           while n> =1 do              begin                  temp: =n mod 10;                   sum : = sum + temp;                   n : = n div 10;               end;           writeln('сумма цифр числа ',nt,' равна ',sum);       end; end.program goodluck51__2; uses crt; const n=4; var  a: array[1..n] of real;   lt: array[1..n] of char;   min,max: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   lt[1]: ='a';   lt[2]: ='b';   lt[3]: ='c';   lt[4]: ='d';   for i: =1 to n do      begin          write('введите число ',lt[i],'=');           readln(a[i]);       end;   max: =a[1];   min: =a[1];   writeln('числа: ');   for i: =1 to n do      begin          if a[i] > max then              max: = a[i];           if a[i] < min then              min: =a[i];           writeln(lt[i],'=',a[i]);         end;   writeln('полусумма наименьшего и наибольшего из них равна',(min+max)/2); end.   program goodluck51_3; uses crt; var  n,nt,sum,temp: integer; begin  write('введите число ');   readln(n);   nt: =n;   sum: =0;   writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   while n> =1 do      begin      temp: =n mod 10;       sum : = sum + temp;       n : = n div 10;   end;   writeln('сумма цифр числа ',nt,' равна ',sum); end.

#include< bits/stdc++.h> using namespace std; const int n = 1e6+1; long long n; long long a[n], b[n]; int main() { setlocale(lc_all, "rus"); scanf("%i64d", & n); for( int i = 0 ; i < n ; i ++ ) cin > > a[i]; b[0] = a[0]; b[n-1] = a[n-1]; for( int i = 1 ; i < n-1 ; i ++ ) b[i] = a[i] + a[i+1]; cout < < "массив а: \n"; for( int i = 0 ; i < n ; i ++ ) cout < < a[i]; cout < < "\nмассив b: \n"; for( int i = 0 ; i < n ; i ++ ) cout < < b[i]; return 0; }

Первая программа. 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.