1. 1)6 2)3 3)6 4)11 5)13 6)8
2. 1, 2, 6, 8
3. 1, 2, 3, 5, 6, 8
4. 2, 8
5. 1, 2, 3, 4, 5, 6, 8
если честно то можно но не все
Var
x, y, q, r: integer;
begin
read(x,y);
r := x;
q := 0;
while r >= y do
begin
r := r - y;
q := q + 1
end;
write(q,' ',r)
<span> end.</span>
1) Память
2) Обеспечение
Если помог, оцени ответ и отметь его как лучший.
Program z1;
var n,P:integer;
begin
P:=0;
if ((n<30)and(n mod 2=0)) then
P:=n*(n-1);
writeln('P='P);
end.
программу не прогонял,поэтому не уверен.