Условие задачи Проверяется автоматически

стандартный ввод
стандартный вывод

2 секунды
64 мегабайта
Архимед был выдающимся практиком в использовании рычагов. Благодаря ему в порту Сиракуз был создано множество механизмов, позволяющих поднимать тяжелые грузы. И вес грузов все чаще стал исчисляться не килограммами, а тоннами.

Известна масса груза в килограммах. Выведите число полных тонн в ней.

Формат входных данных
Вводится целое число x (0 ≤ x ≤ 231-1).
Формат выходных данных
Выведите число полных тонн в x килограммах.

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

14                                                                                                                       

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4 

var a: array[1..2,1..30] of integer; i,j: integer; begin      for i: = 1 to 30 do begin            writeln('введите номер ученика: ');             read(a[1,i]);             writeln('введите оценку: ');             read(a[2,i]);       end;             for i: = 1 to 10 do begin        writeln(i: 2,' - ');             for j: = 1 to 30              if a[1,j]=i then                        write(a[2,i],' ');       end;                   readkey; end.