Var a, b, c, v, s:integer;
begin
read(a, b, c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
end.
После Program введи что-то, например zadanie;
Не забудь про символ "точка с запятой"
Чтобы узнать количество надо вес символа и объём
объём мы уже знаем но лучше перевести в бит
2*1024*1024*8=16777216 бит
теперь вес
мы узнаем его через алфавит
8=2^3
вес равен 3
теперь количество
16777216:3=5592405,33
округляем...
Ответ равен 5592406 символов
(если спросишь почему столько то посмотри алфавит, 8 символов на 2 МБ это будет слишком, было бы приятно почему 2 МБ если алфавит был 256 или 512)
Var n,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
case n of
3..9 : k:=1;
10..99 : begin
k:=1;
for i:=10 to n do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
end;
100..999:begin
k:=1;
for i:=10 to 99 do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
for i:=100 to n do
if (i div 100=3)or(i div 10 mod 10=3)or(i mod 10=3) then k:=k+1;
end;
end;
writeln('k = ',k);
end.
Пример:
n = 120
k = 21