Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.