Регистрация
vmse90
18.10.2020 10:26
Информатика
Есть ответ 👍

Написать программу на языке паскаль авс, заранее )

142
203
Посмотреть ответы 2

Ответы на вопрос:

dilasagadatova
dilasagadatova
4,6(15 оценок)

program raf105;

var fioa2: array[1..20] of string;

fioa1: string;

m1,g1,m2,g2,i,o: integer;

begin

write('введите сегодняшнюю дату (месяц, год) через пробел: ');

readln(m1,g1);

g1: = g1*12;

m1: = m1+g1;

writeln;

for i: =1 to 20 do

begin

  write(i,'. введите фамилию, имя, отчество и адрес сотрудника: ');

  readln(fioa1);

  write('   дата поступления (месяц, год): ');

  readln(m2,g2);

  writeln;

  g2: = g2*12;

  m2: = m2+g2;

  if m1-m2> =36

    then begin

    o: = o+1;

    fioa2[o]: = fioa1;

    end;

end;

writeln('сотрудники которые проработали не менее трёх лет: ');

for i: =1 to o do

writeln(i,'. ',fioa2[i]);

end.

язык программирования pascalabc

demondru
demondru
4,8(23 оценок)

изображёный

Объяснение:

Популярно: Информатика