Question

1) В Мурманской области мужчина выходит на пенсию с 55, а женщина с 50 лет в том случае, если их северный трудовой стаж составляет 15 лет. Определите, является ли человек пенсионером, если известен его возраст, пол, северный стаж.
2) Составить блок-схему решения квадратного уравнения(рассмотреть случаи: D>0,D=0, D=0

Answer 1

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.