Паскаль. на интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.

Var k,  i: integer; srar: real;   begin k: =0; s: =0; for i: =100 to 300 do if i mod 10=0 then     begin     k: =k+1;     s: =s+i;     end;   srar: =s/k; writeln(sr: 5: 2); end.

общее понятие     единичное понятие

композитор           чайковский

художник               репин

поэт                         пушкин

озеро                     байкал

горы                       карпаты

город                     париж

философ               сократ

полководец         суворов

учёный                   ньютон

река                       лена

город                     чита

 

var

  a, b : real;

begin

  read (a, b);

  write (trunc (a * b));

end.

 

var

  a : integer;

begin

  read (a);

  write (frac (a / 10));

end.

 

г)

var

  a, b : real;

begin

  read (a, b);

  write (round (a + b));

end.

 

d)

var

  a, b : integer;

begin

  read (a, b);

  write (a div b);

end.

 

e)

var

  a : integer;

begin

  read (a);

  write (a div 1000);

end.

 

ж)

var

  a : longint;

begin

  read (a);

  write (a div 24 + 1);

end.

 

з)

var

  k : integer;

begin

  read (k);

  write (k div 7 + 1);

end.

 

и)

var

  k : integer;

begin

  read (k);

  write (k div 60, ': ', k mod 60);

end.