Var s,h:integer;
begin
a:=5;
for x:=2 to 9 do writeln(x,'x',a,'=',x*a);
end.
Ответ: 12-2=10 (<em>т.к. нулевых не может быть по условию [1,17]</em>)
Понятные объяснения можно найти тут: html.manual.ru . По моему в разработке сайта использовались фреймы. Чтобы их обнаружить выполните на клавиатуре: Ctrl+Shift+C.
(Команда <span>Ctrl+Shift+C -отображает весь код html .)
</span>
А)
const N=20;
var a,i:integer;
X: array [1..N] of integer;
begin
write('Введите значение A=');
readln(A);
for i:=1 to 6 do X[i]:=A+i;
for i:=7 to N do X[i]:=i-A;
end.
б)
const N=20;
var a,i:integer;
X: array [1..N] of integer;
begin
write('Введите значение A=');
readln(A);
for i:=1 to N do
if (i>2) and (i<=6) then X[i]:=A mod i
else X[i]:=A div i + i;
<span>end.</span>