Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
Управляющий объект- Полиционер
Объект управления- машины
Цель управления- Не должна произойти авария
Управляющее воздействие- графическое сообщение
<span>AB=10*161+11*160=160+11=171</span>
НЕ(28 кратно х) = НЕ (28 кратно 14) = НЕ (ИСТИНА) = ЛОЖЬ
А изо лжи следует что угодно, т.е. значение равно ИСТИНЕ (1)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var k:real;
var b:real;
repeat
k := ReadReal('Введите k');
b := ReadReal('Введите b');
until k <> 0;
var x := -2;
while x <= 2 do
begin
print(k * x + b);
x := x + 2;
end;
end.