Var n,i:integer; a,b:real; l:boolean;
begin
write('N='); readln(n);
l:=true;
write('a='); readln(a);
for i:=2 to n do
begin
write('a='); readln(b);
if b<a then l:=false;
a:=b;
end;
writeln(l);
<span>end.
Пример:
N=5
a=2
a=4
a=5
a=7
a=9
True</span>
Дизъюнктор
<span> (соединенные параллельно замыкающие контакты нескольких реле).</span>
Универсальное решение
var
a, d, s: real;
i, n: integer;
begin
writeln('Введите х, разность и n');
readln(a, d, n);
s := a;
for i := 2 to n do
begin
a := a + d;
s := s + a;
end;
writeln(s);
end.
Делим на основания сс, то есть на 2
14/2=7(0)
7/2=3(1)
3/2=1(1)
1/2=0(1)
Читаем остатки с конца:
<u>Ответ: 1110</u>
О том, какими возможностями обладают вычислительные машины.
Как быстро они могут считывать информацию, обрабатывать, в сотни раз быстрее человека.
Единственное о чем следуют помнить - компьютер выполнят команды, задаваемые человеком. Соответственно именно поэтому они и не смогут "Захватить мир", как об этом рассказывают в фильмах ;)