PascalABC.NET 3.3
program journal;
var
sum, mark, count, n: integer;
check: boolean;
begin
sum := 0;
check := true;
count := 0;
writeln('Введите количество оценок: ');
readln(n);
if (n > 0) then begin
while (count <> n) do
begin
readln(mark);
inc(sum, mark);
if (mark < 4 ) then check := false;
inc(count);
if (count = n) then writeln('Ввод окончен!');
end;
end else writeln('Error!');
if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');
end.
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
Обьект управления: петух.
Управляющее воздействие:
звуковое.
Я так думаю:))))
X=1
((1<5)→(1<3) )∙((1<2)→(1<1) ) ⇒ (Истина→Истина)∙(Истина→Ложь) ⇒ Истина∙Ложь ⇒ Ложь
X=2
((2<5)→(2<3) )∙((2<2)→(2<1) ) ⇒ (Истина→Истина)∙(Ложь→Ложь) ⇒ Истина∙Истина ⇒ Истина
X=3
((3<5)→(3<3) )∙((3<2)→(3<1) ) ⇒ (Истина→Ложь)∙(Ложь→Ложь) ⇒ Ложь∙Истина ⇒ Ложь
X=4
((4<5)→(4<3) )∙((4<2)→(4<1) ) ⇒ (Истина→Ложь)∙(Ложь→Ложь) ⇒ Ложь∙Истина <span>⇒ Ложь</span>
<span>Для обеспечения единообразного взаимодействия компьютеров в глобальной сети используется протокол информационного обмена. Одним из таких протоколов является TCP/IP. Интернет – это объединение глобальных сетей, поддерживающих данный протокол.</span>