Program Kolobok;
var zver:string;
begin
writeln('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');
writeln('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');
writeln('Kolobok katitsya, a navstrechu yemu zver');
writeln('Vvod zverya');
readln(zver);
if Zver = 'lisa' then
begin
writeln('Kolobok poyot pesenku dva raza');
writeln('Proshchay, Kolobok ...');
end
else
begin
writeln('Kolobok poyot pesenku');
writeln('Katitsya dalshe');
end;
end.
24+8=32
log2(32)=5
39x5=195 бит = 24 байта
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74