1)
//PascalABC.NET v3.3 1633
begin
for var i:=3 to 10 do
writeln(i+'^3 = '+Power(i, 3));
end.
2)
//PascalABC.NET v3.3 1633
begin
for var i:=12 to 25 do
if (i mod 6 = 2) or (i mod 6 = 5) then
writeln(i);
end.
<span>shift, caps lock) это же элементарно </span>
Каждое понятие имеет объем - количество элементов в него входящее. Если объем равен 1, то это единичное понятие.
Например, Полярная звезда, Луна (как естественный спутник Земли), созвездие Большой медведицы - то, что существует в единственном экземпляре.
Общие понятия - в объем которых входит более одного предмета.
Например, ученик, доктор, город...
Begin
var pr:=1;
var a:integer:=readlninteger('Введите а:');
var b:integer:=readlninteger('Введите b:');
for a:=a to b do
if (a mod 4 =0) then pr*=a;
println(pr);
end.