<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
var s:=0;
if a.IsOdd then s+=a;
if b.IsOdd then s+=b;
if c.IsOdd then s+=c;
Writeln('сумма нечетных равна ',s)
end.
<u>Пример</u>
Введите три целых числа: 345423 -324342 1231
сумма нечетных равна 346654
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(ReadInteger('Введите размер массива->'),-100,100); Write('Начальный массив: '); a.Println;
a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray; Write('Конечный массив: '); a.Println;
end.
Пример:
Введите размер массива-> 10
Начальный массив: -100 84 -35 -26 -33 63 36 22 60 89
Конечный массив: 84 -26 63 22 89
На 1 лист уходит время 3+9+2=14сек. 40×14=560сек. последний лист не сменяется. 560+3+2=565сек.
Д<em>ля кодирования одного из 16 символов требуется log(2)16 = 4 бита. Объем информации в тексте = 4*60*60*105 бит = 4*60*60*105 / (8*1024) Кбайт ≈ 184,6 Кбайт </em>