Файловий провідник, живлення, усі програми...
Ответ:
var x, y: Integer;
begin
Read(x, y);
if x > y then WriteLn(x+y);
end.
//PascalABC
//NaaMan
var
V, pi, h, r : real;
begin
pi := 3.1415926;
write('Укажите радиус основания конуса > ');
readln(r);
write('Введите высоту конуса > ');
readln(h);
V := 1 / 3 * pi * r * r * h;
writeln('Объем конуса V = ', V);
end.
1) Если в кодировке ASCII.
k=63*34*13=27846 символов.
Один символ в кодировке ASCII занимает 1 байт или 8 бит.
27846*1=27846 байт.
2) Если в кодировке UNICODE.
k=63*34*13=27846 символов.
Один символ в UNICODE занимает 2 байта или 16 бит.
27846*2=55692 байт.