Недостаток или малое количество памяти на системных дисках.
ответ = 42, так как цикл заканчивается после четырёх итераций.
Ответ: C
<span>т.к нужно их сложить. Вектор(-10+20+30-10+20+30-10+20+30;20-10+0+20-10+0+20-10+0) и получается Вектор(120,30)</span>
Var
k,n,x,d: integer;
begin
read(k,n);
for x := k to n do
if x mod 10 = 3 then
begin
d := 2;
while x mod d <> 0 do d := d + 1;
if x = d then write(x,' ');
end;
end.
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.