это Dev-C++ Реализуйте следующие формулы:
Используя int: 1) L = (n-2) * 180 2) M=F*r 3) V=I*R 4) P = m*g g=10
Используя float: 1) С = 2*П*R П=3.14 2) S = (a+b)*h/2 3) P = (a + b + c)/2 4) S = m*n/2

иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются