Program ;
Var a, b, i, k:integer;
s:real;
Begin
s:=0;k:=0;
write('Задайте a,b=');
readln(a,b);
For i:=a To b Do
Begin
Inc(s,i);{s:=s+l};
Inc(k);{k:=k+1;};
end;
s:=s/k;
Writeln('s=',s:3:2);
end.
что делать если пишет Нет перегруженной подпрограммы с такими типами параметров

temaimcheg    2   08.04.2020 15:49    0