Program wwabcfftahfmsejfejfmekfmsjfjefmjsfk lejfjnsejfnsjlfmsejfnjlesnfjsemfjse fjsefjsfjmjlm;
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.
что делать если пишет Нет перегруженной подпрограммы с такими типами параметров

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

64*64= 4096- общее количество пикселей.(точек на экране) 

512байт /4096=(512*8) бит\4096=1 бит.то есть получается что на одну точку приходится 1 бит данных. это значит что общее количество цветов на точку   - 2 в степени.   то есть 2 цвета

основной текст в египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(но выделяли редко -писчий материал был дорогим).

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.