//Pascal ABC.NET 3.1 сборка 1219
begin
writeln('Array:');
var ar:=ArrRandomInteger(7,-10,10);
ar.Println;
writeln('Result:');
foreach var x in ar do
if not(odd(x)) then write(x:4);
end.
Пример работы программы:
Array:
-1 9 3 10 -4 -1 8
Result:
10 -4 8
М-М * Р-ТА-Ф * Г-ММ-Ш * Р-М
М not(Т) М,Ш,ФР not(Ш) Т,Ф,М
А v T v ФГ v Ш v М
Г-М А-Ф М-Ш Р-Т
<span>
ответ
Р М А Г</span>
1946 год - <span>создание первого компьютера</span>
А - 0
Б - 101
В - 110
Скажем,
Г - 100
Д - 1110
Е - 1111
1 + 3*3 + 4*2 = 18