var Age : integer; {Возраст}
Sex : char; {Пол}|
Stag: integer; {Стаж}
Flag: boolean; {Логическое ДА или НЕТ}
begin
WriteLn('Age='); ReadLn(Age);
WriteLn('Sex='); ReadLn (Sex);
WriteLn('Stag='); ReadLn(Stag);
Flag:=false;
If (Sex='M') and (Age>=55) and (Stag>=15) then Flag:=true;
if (Sex='F') and (Age>=50) and (Stag>=15) then Flag:=true;
If (Flag=true) then WriteLn('НА ПЕНСИИ') else Writeln('ЕЩЕ РАБОТАЕТ');
ReadLn;
end.
1)
использовать Чертежник
<span> вертикаль
горизонталь
</span><span> сместиться на вектор (-6,-6)
</span><span> горизонталь
вертикаль
алг вертикаль
нач
опустить перо
сместиться на вектор (0,6)
поднять перо
кон
</span>алг горизонталь
нач
опустить перо
сместиться на вектор (6,0)
поднять перо
кон
2)
Использовать чережник
Горизонталь
Сместиться на вектор (-6,6)
Горизонталь
<span> Вертикаль
</span><span> Вертикаль
</span><span> Вертикаль
</span><span> Вертикаль
</span><span> Вертикаль
</span> Вертикаль
алг горизонталь
нач
опустить перо
сместиться на вектор (6,0)
поднять перо
кон
алг вертикаль
нач
опустить перо
сместиться на вектор (0,-6)
поднять перо
сместиться на ветор (-1,6)
кон
3) Использовать чережник
Горизонталь
Горизонталь
<span> Горизонталь
</span> <span> Горизонталь
</span> <span> Горизонталь
</span> <span> Горизонталь</span>
Горизонталь
Сместиться на вектор (0,-8)
<span> Вертикаль
</span><span> Вертикаль
</span><span> Вертикаль
</span><span> Вертикаль
</span><span> Вертикаль
</span> Вертикаль
алг горизонталь
нач
опустить перо
сместиться на вектор (6,0)
поднять перо
сиеститься на вектор (-6,1)
кон
алг вертикаль
нач
опустить перо
сместиться на вектор (0,6)
поднять перо
сместиться на ветор (1,-6)
кон
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,0,100); a.Println;
a.Average.Println
end.
<u>Пример</u>
65 11 46 1 81 74 17 45 5 79 92 10 39 41 42
43.2
F=<span>(X v Y) Λ ¬Z (4), т.к.при подстановке значений из таблицы истинности получается верное значение F.</span>
