Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
Var C2, C1: longint;
a, b, n: integer;
begin
readln(a, b, n);
b := b + a * 100;
C1 := b * n;
C2 := C1 mod 100;
C1 := C1 div 100;
writeln(C1, ',', C2);
<span>end.
Вот так =)</span>
Ответ:
что?
Объяснение:
это шутка? ( ͡° ʖ̯ ͡°)( ͡° ʖ̯ ͡°)( ͡° ʖ̯ ͡°)( ͡° ʖ̯ ͡°)( ͡° ʖ̯ ͡°)
type
Data = record
Year: 1..2100;
Month: 1..12;
Day: 1..31;
end;
begin
writeln(sizeof(Data) * 8, ' бит'); {sizeof(Data) показывает размер типа Data в байтах