Надо решать через паскаль. составил две программы и обе со странным ответом. что не то? program qwe; uses crt; var x.s: integer; y: real; begin s: =0; for i: = -2 to 27 do s: =s+x; y: =s/30 writeln('srednee arifmeticheskoe=', y); readkey; end. program dada; uses crt; var i, s, o: integer; begin clrscr; s: =0; o: =0; for i: =-2 to 27 do begin s: =s+1; o: =o+1; end; writeln(s/o); readkey; end.

program qwe;

uses crt;

var  c, s, i: integer; y: real;

 

begins: =0; c: =0; for i: = -2 to 27 dobegins: =s+i; c: =c+1; y: =s/c; end; writeln('srednee arifmeticheskoe=',y);

readln; end.

вот так вот должна быть 1 . ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)

Авот и ошибочка!   вот алгоритм в исправленном виде! var  m, tons, kilos, grams: integer; begin  write('введите массу: ');   read(m);   // чтобы найти кол-во тонн, разделим нацело введенную массу  // на 1000000  tons : = m div 1000000;   // div - деление нацело  // чтобы найти кол-во килограмм, сначала возьмем остаток    // деления на 100000, затем полученное число разделим    // нацело на 1000.  kilos : = (m mod 100000) div 1000;   // mod - остаток от деления  // граммы - последние 3 цифры введенного числа  grams : = m mod 1000;   writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.'); end.

Var   m, tons, kilos, grams: integer; begin   write('введите массу: ');   read(m);   // чтобы найти кол-во тонн, разделим нацело введенную массу   //  на 1000000   tons : = m div 1000000;   // div - деление нацело   // чтобы найти кол-во килограмм, сначала возьмем остаток    // деления на 100000, затем полученное число разделим   // нацело на 1000.   kilos : = (m mod 100000) div 1000;   // mod - остаток от деления   // граммы - последние 3 цифры введенного числа   grams : = m mod 1000;     writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.'); end.