Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.
№4.1
38*64*15=36480
№4.2
в самом сообщении нужно посчитать кол-во всех букв, пробелов, знаков препинания , у меня получилось 41
№4.3
В данной задаче применим формулу Шеннона
Вероятность того,что вытащили красный карандаш= 1/32
х=㏒2(1:(1:32))= 5
Ответ :5
№4.4
1,44*2/3= 0,96 МБ
1КБ=1024 байта
1МБ=1024 КБ
0,96 МБ= 0,96*1024*1024=1006632,96 байт
№4.5
пуст точка-0
тире-1
я не знаю азбуку Морзе...
Program 1;
var x : integer;
begin
write('введите число');
readln(x);
if x<5 then write(xxp(10)) else write('число <5');
readln;
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var b:=ArrRandom(10,-10,10); b.Println;
Writeln('Сумма элеменов массива равна ',b.Sum);
Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven))
end.
Пример
1 10 3 -4 -10 -1 -6 0 -4 9
Сумма элеменов массива равна -2
Количество четных чисел равно 6
Парень сидит и разговаривает по телефону по рисунку бы я сказала что он очень встревожен или удивлён от разговора видимо его что-то взволновало или встревожило или он услышал какую-то тему которая его удивила