K=10
i=1, A(1)=11, B(10)=11, k=9
i=2, A(2)=10, B(9)=10, k=8
i=3, A(3)=9, B(8)=9, k=7
i=4, A(4)=8, B(7)=8, k=6
i=5, A(5)=7, B(6)=7, k=5
i=6, A(6)=6, B(5)=6, k=4
i=7, A(7)=5, B(4)=5, k=3
i=8, A(8)=4, B(3)=4, k=2
i=9, A(9)=3, B(2)=3, k=1
i=10, A(10)=2, B(1)=2, k=0
Ответ:
<span>2) заполняет массив А с начала, а массив В с конца</span>
Привет
как дела я друг как тебя зовут и еще напеши ришебник по математике и там найдете
Var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.
Uses crt;
var a,b,n:integer;
begin
clrscr;
writeln('Введите делимое:'); readln(a);
writeln('Введите делитель <>0'); readln(b);
n:=a div b;
if b <> 0 then begin n:=a div b; writeln('Ответь ',n); end else writeln('error 0');
readkey;
end.
Если что паскаль