Помогите пожалуйста написать программу на паскале! Написать программу для решения следующей задачи:Вычислить сумму объёмов и сум
Помогите пожалуйста написать программу на паскале! Написать программу для решения следующей задачи:Вычислить сумму объёмов и сумму полных поверхностей трёх круглых конусов,если для каждого конуса известны высота и радиус основания.Использовать подпрограмму-функцию.
Uses crt; var i,a,b,c:integer; begin for i:=1 to 20 do begin if i<=7 then begin a:=a+i; b:=b+sqr(i); end; if (i mod 2) = 0 then c:=c+i; end; writeln('Сумма первых семи натуральных чисел: ',a); writeln('Сумма первых семи натуральных чисел возведенных в квадрат: ',b); writeln('Сумма четных чисел от 1 до 20: ',c); <span>end.</span>
</span>2^3 = 8 -> всего 8 различных букв дальше я не вполне уверен, но... 64 различных варианта, формула для количества вариантов различных букв^длина слова = количество слов 8^x = 64 <span>x = 2 </span> 160*32*44 = 225280 символов <span>предположим, это кодировка 1 байт/символ тогда 225280 байт = 220 Кбайт если бы было 2 байт/символ, было бы 220 * 2 Кбайт, а такого варианта нет, поэтому: </span> 220 Кбайт<span>