Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
для 4 символов:
2*2*2*2=16
для 5 символов:
2*2*2*2*2=32
для 6 символов:
2*2*2*2*2*2=64
16+32+64=112
может быть крик?
решение должно иметь од 20 до 5000
program xxx;
var i, n, s, k : integer;
a : array [1..20] of integer;
begin
write('введите n=');
readln(n)
writeln('введите элементы массива а: ' );
for i: =1 to n do
readln(a[i]);
s: =0;
k: =0;
if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;
if k=0 then write ('элементов кратных 8 - нет')
else write('сумма элементов кратных 8 =', s);
readln
end.
если есть д ш и в то это не куб а параллелипипед
var
a,b,c,r: real;
readln(a,b,c,r);
if (2*r< a) and (2*r< b) and (2*r< c)
then writeln('поместится')
else writeln ('не поместится');
для куба достаточно одного условия (2*r< a)
Популярные вопросы