алг
нач
цел count, i, count1
целтаб A[1:10]
нц для i от 1 до 10
A[i]:=irand (20, 100)
вывод A[i], " "
кц
вывод " ", нс
count:=0
count1:=0
нц для i от 1 до 10
если mod (A[i], 2)=0
то count:=count+1
иначе count1:=count1+1
все
кц
вывод "четных ", count, нс, "нечетных ", count1
кон
Мощность алфавита равна 625/125=5бит тоесть 1 символ алфавита равняеться 5 битам
Program n1;
//Название программы
var i,n,sum: integer;
//Объявление переменных
begin
//Начало
readln(n);
//Ввод n (количество чисел) и и переход на следущую строку
sum:=0;
//Присваивание переменной sum знаяения 0 (изначально сумма равна 0)
for i:=1 to n do sum:=sum+2*i;
//В цикле от 1 до n к переменной
//sum прибавляем 2*i, т.е. 1*2+2*2+3*2+..n*2=2+4+6+..+2n;
writeln(sum);
//Ввод sum (cумма первых n целых положительных четных чисел)
//и и переход на следущую строку
end.
//Конец
Var
a,b:integer;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('Pryamougolnik ', i);
writeln('vvedite storonu a');
readln(a);
writeln('vvedite storonu b');
readln(b);
writeln('perimetr = ', (a+b)*2);
end;
end.