Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Type student=record
familia:string;
nomer:byte;
yspevaemosti:array[1..5] of integer;
end;
Я считаю, потому что алфавитный подход позволяет измерять информационный объем текста,не связанный с содержанием этого текста
Уже была такая задача.
Столбиком:
10011
110111
=
1001010
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(1,100).Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Результат</u>
93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000