Напишите программу, ко¬то¬рая в по¬сле¬до¬ва¬тель¬но¬сти целых чисел опре¬де¬ля¬ет их ко¬ли¬че¬ство и сумму нечётных чисел. Про¬грам¬ма по¬лу¬ча¬ет на вход целые числа, ко¬ли¬че¬ство введённых чисел неизвестно, по¬сле¬до¬ва¬тель¬ность чисел за¬кан¬чи¬ва¬ет¬ся числом 0 (0 — признак окон¬ча¬ния ввода, не вхо¬дит в последовательность). Ко¬ли¬че¬ство чисел не пре¬вы¬ша¬ет 1000. Введённые числа по мо¬ду¬лю не пре¬вы¬ша¬ют 30 000. Про¬грам¬ма долж¬на вы¬ве¬сти два числа: длину по¬сле¬до¬ва¬тель¬но¬сти и сумму нечётных чисел.

а)400*2,5=1000кб

б)64: 2,5=25,6=25(страниц)

в)нужен диск cd-r ,cd-rw

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.