32=2^5 => сообщение содержит 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.
//Конец
Const b:array[1..12] of string=('A','a','E','e','I','i','O','o','U','u','Y','y');
var a:string;
i,j,k:integer;
begin
readln(a);
for i:=1 to length(a) do
for j:=1 to 12 do
if a[i]=b[j] then k+=1;
writeln(k/length(a):3:2);
<span>end.</span>
Var a,b,c,d:integer;
begin
b:=0;
c:=0;
d:=1;
for a:=1 to 100 do begin
if (a mod 5 = 0) then b:=b+1;
if (a mod 5 = 0) then c:=a+c;
if (a mod 5 = 0) then d:=a*d;
end;
writeln('количество чисел делящихся на 5 ==> ',b);
writeln('сумма чисел делящихся на 5 ==> ',c);
writeln('произведение чисел делящихся на 5 ==> ',d);
<span>end.</span>