//Я слабо себе представляю как выглядит блок-схема с подпрограммой, так что выкладываю два варианта
//Pascal ABC.NET v3.1 сборка 1219
Var s:real; i,j,d1,d2,r1,r2,k:integer;
function Simple(d,r:integer):real;
begin
Simple:=sqr(d)*(r-1130)*9.8/(18*0.6);
end;
begin
k:=0;
read(d1,d2,r1,r2);
for i:=d1 to d2 do
begin
for j:=r1 to r2 do
begin
s:=s+Simple(i,j);
inc(k);
end;
end;
s:=s/k;
writeln(s);
end.
Пример ввода:
1
5
2
4
Пример вывода:
-11249.1296296296
1. Находим количество символов на 1 странице 48*64=3072
2, Умножаем их на количество страниц 3072*4=12288
3. В кодировке КОИ-8 1 символ равен 1 байту, т.е. объем информации равен 12288 байт/1024=12 кб
В кодировке Unicode 1 символ равен 2 байтам, т.е. объем информации равен 24 кб.
Var s:string;k,i:integer;beginreadln (s);k:=0;for i:=1 to length(s) doif s[i]='d' then k:=k+1;writeln(k);end.
110010\%=50\%
1010=10(мальчиков)
=>
20 учеников