В данной программе k - это количество шагов, т. е. от 6 до 12 включительно. Получается 7 шагов. Если совсем не понимаешь, то проще расписать каждый шаг от 6 до 12.
Например,
k:= 6; s:= 0+10
k:= 7; s:= 10+10
k:= 8; s:= 20+10
...
k:= 12; s:= 60+10
Ответ:
Объяснение:
Решим эту задачу при помощи EXCEL:
Var A:integer;
Begin
WriteLn('Введи целое число');
ReadLn(A);
if (A>10)and(A<20) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит20')
End.
Var
a:array[1..10,1..10] of integer;
i, j, j1, max, s: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(a[i,j]);
max := a[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]>max then
begin
max := a[i,j];
j1:=j;
end;
for i:=1 to 10 do
begin
s:=a[i, 1];
a[i, 1] := a[i, j1];
a[i, j1] := s;
end;
<span>end.</span>
Органы чувств ..........................!!!!!!!!