Написать программу на языке программирования Паскаль, используя операторы ветвления if, then, else. - id1246623820220226 от magiklen 26.02.2022 04:30

Question

Информатика: Написать программу на языке программирования Паскаль, используя операторы ветвления if, then, else. Ведется прием на работу на конкурсной основе. Условия приема требуют 20 лет трудового стажа и возраста не более 45 лет.Определить,будет ли человек принят на работу. Примечание: два условия записываются в виде (x 5) or (x 6), (x 5) and (x 6) - выберите нужную запись для условия, подставляя значения из задачи.

magiklen · Accepted Answer

1)  var  n:integer; begin  readln(n);  if(n 0)then write(0)  else write(n+4); end. 2)  var   a, b: integer;  begin   readln(a, b);   if(a = b) then write(1)   else write(0); end. 3) var   a, b, c, s: integer;  begin   s := 0;   readln(a, b, c);   if(a = 0) then s := s + 1;   if(b = 0) then s := s + 1;   if(c = 0) then s := s + 1;   write(s); end. 4) var   a, b, c, s: integer;  begin   s := 0;   readln(a, b, c);   if(a 0) then s := s + a;   if(b 0) then s := s + b;   if(c 0) then s := s + c;   write(s);...

MOGZ ответил