Program p1;
var a:integer;
begin
a:=random(89)+10;
writeln('a= ',a);
writeln('Summa tsifr= ',a mod 10+a div 10);
writeln('4islo naoborot= ',a mod 10, a div 10);
<span>end.
program p2;
var a:integer;
begin
a:=random(899)+100;
writeln('a= ',a);
if (a mod 10)=((a div 100) mod 10) then writeln('POLIMER')
else writeln('NE POLIMER');
end.</span>
8 байт - 64 бита
1.5 кбайт =
1 <span>536 байтов
512 бит = 64 байта
2 мбита = </span>
<span>65 536 кбайт
4 бита = 0.5 байта
3072 кбайт = 3 мбайта . Как я поняла тут мегабайты , байты , биты и килобайты да ?</span>
Круги Эйлера — геометрическая схема, с помощью которой можно изобразить отношения между подмножествами
CONST<span> k=10; </span>{k - количество чисел в массиве}VAR<span> a:array[1..k] of integer;</span><span> i,summ,n:integer; </span>{i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}<span> sr:real; {sr - среднее арифметическое} </span>BEGIN summ:=0; n:=0; {Обнуляем счетчики}<span> for i:=1 to k do </span> begin a[i]:=random(50); {Заполняем массив случайными числами}<span> write (a[i],' '); </span>{Выводим массив}<span> if a[i] mod 2=0 then </span> begin<span> summ:=summ+a[i]; </span>{Находим сумму элементов массива с четными значениями} n:=n+1 end end;<span> sr:=summ/n; </span>{Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое}END.