Под определение "организация" здесь подходит только 2 и 4. Но 2 занимается веб-дизайном, тогда ответ - 4.
Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
Ответ:
Ответ 8
Объяснение:
Приведем выражение к следующему виду:
(x > 7) & (x <20).
Наименьшим значением в данном промежутке будет 8.
Const N = 100;
Var m:array [1..N] of integer; i,max,o:integer;
begin
randomize;
o:=0;
for i:=1 to N do begin
m[i]:= random(1000);
if m[i]>max then max:=m[i]; end;
for i:=1 to N do begin
write(m[i],' ');
if (m[i]>o) and (m[i]<max) then o:=m[i]; end;
writeln;
writeln('--=',o,' =--');
readln;
end.<span>
</span>