1.внимательно слушать на уроке.
2.думать
3.вникать
4.выполнять домашнии задания
5.ну и учить правила конечно!!!
и не валять дурака на уроке......
procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.
Исполнителя и можно назвать исполнителем.(персонаж,бегунок,сама программа)
Const
d1=0.2;
d2=0.3;
d3=0.3;
d4=0.4;
d5=0.5;
r=5.0;
begin
Write(0.25*(d1*d1+d2*d2+d3*d3+d4*d4+d5*d5)/(r*r))
end.
Результат выполнения программы
0.0063