16*50*32=25600байт
8бит=1байт
25600*1=25600байт
1Кбайт=1024байта
25600:1024=25Кбайт
Корова.....................................................
<em>1)</em> Program p1;
Uses crt;
Var A: array [1..9] of integer;
i: integer;
Begin clrscr;
for i:=1 to 9 do
begin
case i of
1,4,7: a[i]:= random (99-10+1)+10;
2,5,8: (random (999-100+1)+100) div i;
3,6,9: (random (99-10+1)+10) mod 10;
end;
write (a[i],' ');
end;
readln;
readkey;
end.<em>
</em>2)<em> </em>Program p2;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
Writeln ('Введите первые 2 элемента массива');
Read (a[1],a[2]);
for i:=3 to 15 do
begin
a[i]:=(a[i-1]-a[i-2])+i;
write (a[i],' ');
end;
readln;
readkey;
end.
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
<u>Пример:</u>
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161