1.1)var n,i:integer; begin writeln('Введите число n'); readln(n); for i:=1 to n do begin if (i mod 12=0) then write(i,' '); end; end. 1.2)var n,i:integer; begin writeln('Введите число n'); readln(n); i:=1; while (i<=n) do begin if (i mod 12=0) then write(i,' '); i:=i+1; end; end. 1.3)var n,i:integer; begin writeln('Введите число n'); readln(n); i:=1; repeat if (i mod 12=0)then write(i,' '); i:=i+1; until (i>n); end. 2.1)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); for i:=1 to n do beginif (i mod 6=0)then s:=s+i; end; writeln('Сумма равняется ',s); end. 2.2)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); i:=1; while (i<=n) do begin if (i mod 6=0) then s:=s+i; i:=i+1; end; writeln('Сумма равняется ',s); end. 2.3)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); i:=1; repeat if (i mod 6=0) then s:=s+i; i:=i+1; until (i>n); writeln('Сумма равняется ',s); end.
Я, правда, не знаю, как у вас на уроках изображают реле и контакторы, но схематически эту задачу можно представить так. На входы a-z подается управляющее напряжение контакторами, а на рабочие контакты - напряжение (5, или скорее всего 12 вольт). Если на управляющую обмотку поступает напряжение, контакты замкнуты, и рабочее напряжение подходит сквозь них, выдавая результат. Соединение (точка) обозначает логическую инструкцию or, два контактора рядом - конструкцию and, например k and l или m and n. Если на выходе левой части схемы будет напряжение, или на выходе правой части, то на выходе всей этой схемы будет результирующее напряжение. Понимаю, что описано сумбурно, если будут вопросы, стучитесь в личку, попробую объяснить
function minim(ar: array of real; n: integer): real; var i: integer; min: real; begin min := MaxReal; for i := 0 to n - 1 do //динамические массивы индексируются с 0 if min > ar[i] then min := ar[i]; minim := min; end;
begin randomize; write('NA:');readln(NA); //ввод размерностей write('NB:');readln(NB); write('NC:');readln(NC); var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов var b := ArrRandomReal(NB, 1, NB); var c := ArrRandomReal(NC, 1, NC); a.println(' '); writeln('Min:', minim(a, NA)); b.println(' '); writeln('Min:', minim(b, NB)); c.println(' '); writeln('Min:', minim(c, NC)); end.
begin
writeln('Введите число n');
readln(n);
for i:=1 to n do
begin
if (i mod 12=0) then write(i,' ');
end;
end.
1.2)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
i:=1;
while (i<=n) do
begin
if (i mod 12=0) then write(i,' ');
i:=i+1;
end;
end.
1.3)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
i:=1;
repeat
if (i mod 12=0)then write(i,' ');
i:=i+1;
until (i>n);
end.
2.1)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
for i:=1 to n do
beginif (i mod 6=0)then s:=s+i;
end;
writeln('Сумма равняется ',s);
end.
2.2)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
i:=1;
while (i<=n) do
begin
if (i mod 6=0) then s:=s+i;
i:=i+1;
end;
writeln('Сумма равняется ',s);
end.
2.3)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
i:=1;
repeat
if (i mod 6=0) then s:=s+i;
i:=i+1;
until (i>n);
writeln('Сумма равняется ',s);
end.