<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
for var i:=100 to 999 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false else j+=1;
if flag then Print(i)
end
end.
Мой ответ отличается от твоих вариантов.
Начинаем в D:\Квартиры\Цены\Дорогие<span>.
</span>D:\Квартиры\Цены<span>.
</span>D:\Квартиры\Цены\Премиум<span>.
</span>D:\Квартиры\Цены\Премиум\Центральный
D:\Квартиры\Цены\Премиум.
Ответ: D:\Квартиры\Цены\Премиум.
Вот и код. Если я не правельно понял задание, скажи
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');
var V := ArrRandom(n, a, b);
V.Println;
Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)
end.
Var
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.