Линейка,меню,редактирование
Если за основу всего этого брать кодировку Unicode, то...
k = 10 * 30 * 50 = 15000 символов
Один символ кодируется 16 битами.
i = 16
I = k * i
I = 15000 * 16 = 240000 бит = 30000 байт = 29.296875 Кбайт
Program pr;
Var a, b:real;
Write('Введите A: ') ;
Readln(a) ;
Write('Введите B: ') ;
Readln(b) ;
Writeln('Среднее арифметическое: ',(a+b)/2);
End.
Var
hay:longint; { количество стогов сена }
eaten:longint; { количество съеденных стогов }
procedure Eat(var n:longint);
{ съесть 4 стога }
begin n:=n-4; eaten:=eaten+4 end;
procedure Sheep(n:longint);
{ овечка, которой передано n стогов сена }
begin
if n>=4 then begin
if (n mod 5)=0 then begin
n:=n div 5;
Sheep(n);
Sheep(3*n)
end
else begin
Eat(n);
Sheep(n)
end
end
end;
begin
Readln(hay);
eaten:=0;
Sheep(hay);
Writeln(eaten)
end.
<em><u>Тестовое решение:</u></em>
29
8