Var a:real;
begin a:=2;
while a<2.8 do begin
a:=a+0.1;
writeln(a);
end;
<span>end.</span>
1)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('Имеют одинаковые знаки');
if ((a>0) and (b<0)) or ((a<0) and (b>0)) then writeln('Имеют разные знаки');
if (a=0) or (b=0) then writeln('Некорректно');
end.
2) какой именно коэффициент?
<span>Этот принцип впервые применила фирма IBM, что повлияло на ускорение темпов развития вычислительной техники.</span>
Const n=11;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(16);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('s=',s,' sr=',s/n:5:2);
<span>end.
Пример работы:
6 12 7 9 3 15 10 10 6 2 8
s=88 sr= 8.00<span>
</span></span>
Первая формула равна 1 только для случая 010, значит не подходит.
Вторая формула дает ошибку на наборе 3, значит не подходит.
Третья формула равна истине только для случая 100, не подходит.
Четвертая формула записана с ошибкой. Что там за дизъюнкция перед иксом? Если предположить, что там должно быть отрицание, то не подходит набор 3. Если предположить, что дизъюнкция в начале это просто опечатка, т.е. ее не должно быть, то не сработает набор 2.
Вывод - ищите ошибку в задании. Скорее всего в четвертой формуле должная быть еще одна буква перед дизъюнкцией.