Program Task;
Var a: Array [1..40] of Integer;
b: Real;
c, d, e, i: Integer;
Begin
Randomize;
For i := 1 To 40 Do
a[i] := Random(20 + 1);
WriteLn('Массив:');
For i := 1 To 40 Do
Write(a[i], ' ');
WriteLn;
For i := 1 To 40 Do
Begin
If a[i] Mod 2 = 1 Then
Begin
b := b + a[i];
c := c + 1;
End;
If a[i] <= 10 Then
d := d + a[i];
If a[i] Mod 3 = 0 Then
e := e + a[i];
End;
WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2);
WriteLn('Сумма чисел, не превышающих 10: ', d);
WriteLn('Сумма чисел кратных 3: ', e);
ReadLn;
<span>End.</span>
1)256×4×64=65536
2)16×32×512=262144
3)10×2^10×8=1600
4)2^5×12×32=3840
5)64×1/16×256=1024
6)32×8×1/4=512
вот так
Program p1;
uses crt;
var a,b,c,d,e,s:integer;
begin
a:=50;
b:=10;
c:=5;
d:=1;
writeln('сколько у вас монет по 50');
read(e);
s:=a *e;
writeln('сколько у вас монет по 10');
read(e);
s:=s+b*e;
writeln('сколько у вас монет по 5');
read(e);
s:=s+c*e;
writeln('<span>сколько у вас монет по </span> 1');
read(e);
s:=s+d*e;
write('Всего копеек ',s);
end.
var a,b,c: integer;
begin
read(a,b,c);
if (a>b) and (a>c) and (b>c) then write(a,b,c);
if (a>b) and (a>c) and (b<c) then write(a,c,b);
if (b>a) and (b>c) and (a>c) then write(b,a,c);
if (b>a) and (b>c) and (a<c) then write(b,c,a);
if (c>a) and (c>b) and (a>b) then write(c,a,b);
if (c>a) and (c>b) and (a<b) then write(c,b,a);
end;
<span>г) совокупность способностей, знаний, умений и навыков, связанных с пониманием закономерностей информационных процессов в природе, обществе и технике, с современными информационными и коммуникационными технологиями, со способностью и умением использовать средства информационных и коммуникационных технологий при решении задач своей практической деятельности;</span>
