У каждого цветка свой аромат то есть- каждый человек индивидуален, есть личность
И лягушка может утонуть - смысл пословицы в том, что нужно бороться за свою жизнь пока есть надежда.
Мал ерш да колюч - если маленький, то не значит что беззащитный.
Решение прикрепил скрином, ну и конечно для развития скажу вам, фут это 0,3м а не 0,45. Я так понял в этой задаче поставили 0,45 что-бы не так было просто загуглить.
Var
i,k,n1,n2:integer;
begin
n1:=0; n2:=0;
Write('Введите 5 натуральных чисел: ');
for i:=1 to 5 do begin
Read(k);
if k mod 2<>0 then Inc(n1);
if (k mod 3=0) and (k mod 5<>0) then Inc(n2)
end;
Writeln('Нечетных- ',n1,', кратных 3 и не кратных 5- ',n2)
end.
<u>Пример</u>
Введите 5 натуральных чисел: 11 8 33 15 27
Нечетных- 4, кратных 3 и не кратных 5- 2
При перекодировке информационный вес символа уменьшился в 2 раза, следовательно и объем уменьшился в 2 раза, таким образом размер файла был 320бит, а стал 160 бит.
160/8 = 20 символов
64 возможно, но это не точно