2. записать в развёрнутой форме следующие числа:
а) 821,са 16
б) 321,56 10
в) 2371,45 8

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

конструктор автомобилей: проектирования

писатель: не один писатель сейчас использует даже тот самый word чтобы печатать там

бухгалтер: сдает отчеты через компьютер, тоже и в налоговой ну или еще где-то

врач: для различных анализов 

: те же нужные конференции, призентации и все такое делается на компьютере

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

#include < iostream> #include < clocale> #include < cmath> using namespace std; void main(){ setlocale(lc_ctype,"rus"); int x, sum=0; cout< < "введите переменную: "; cin> > x; for(int i=1; i< x; i++) { if(x%i==0) sum+=i; } if(x==sum) {cout< < "это совершенное число"< < endl; } else {cout< < "это несовершенное число"< < endl; }}