Asoooollll
03.04.2020 08:56

Ванкете приводятся данные о пяти сотрудниках: фио и год приема на работу, все поля обязательно должны быть заполнены.
напишите сценарий, который по году приема на работу определяет стаж работы в годах, если стаж меньше 3 лет, то сотрудник «молодой специалист», если стаж больше 3 лет, но меньше 25, то сотрудник «специалист», если стаж больше 25 лет, то присваивается звание «ветеран труда». ».
если год приема на работу указан некорректно или поля не заполнены, то выводится сообщение.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
olesia170202
25.05.2021 11:31

1)

var

  a, b, s : real;

begin

  read (a, b);

  s := a * b;

  write (s:10:4);

end.

 

2)

var

  a, b, c, k : integer;

begin

  read (a, b, c);

  k := 0;

  if a > 0 then inc (k);

  if b > 0 then inc (k);

  if c > 0 then inc (k);

  writeln (k);

end.

 

3)

var

  a : integer;

begin

  read (a);

  writeln ((a mod 10) * (a mod 100 div 10) * (a div 100 mod 10) * (a div 1000));

end.

 

4)

var

  c, n : integer;

begin

  read (n);

  c := 0;

  repeat

    inc (c);

    n := n div 10;

  until n = 0;

  writeln (c);

end.

 

5)

var

  n, sum, i : integer;

begin

  read (n);

  sum := 0;

  for i := 1 to n do

    sum := sum + i;

  writeln (sum);

end.

 

6)

var

  d, n, k : integer;

begin

  read (n, k);

  d := 0;

  while n >= k do

  begin

    d := d + 1;

    n := n - k;

  end;

  writeln ('n div k = ', d);

  writeln ('n mod k = ', n);

end.

 

7)

var

  n, sum, i, tmp : integer;

begin

  read (n);

  sum := 0;

  for i := 1 to n do

  begin

    read (tmp);

    sum := sum + tmp;

  end;

  writeln (sum / n);

end.

 

8)

var

  i, n, s : integer;

  a : array [1..1000] of integer;

begin

  s := 2;

  read (n);

  for i := 1 to n do

  begin

    a[i] := s;

    s := s + 2 * i + 1;

  end;

  for i := 1 to n do write (a[i], ' ');

end.

 

9)

var

  n, i, count, tmp : integer;

begin

  read (n);

  count := 0;

  for i := 1 to n do

  begin

    read (tmp);

    if tmp < 0 then inc (count);

  end;

  writeln (count);

end.

 

10)

var

  n, i, j : integer;

begin

  read (n);

  for i := 1 to n do

  begin

    for j := 1 to i do

      write ('*');

    writeln;

  end;

end.

 

11) //Не понял, как заполняется массив? Тут рандом

var

  a : array [1..1000] of integer;

  i, n : integer;

begin

  read (n);

  for i := 1 to n do

    a[i] := trunc (random (1000)) - 500;

  for i := 1 to n do

    if a[i] > 0 then a[i] := a[i] * (-1)

   else if a[i] < 0 then a[i] := sqr (a[i]);

  for i := 1 to n do

    write (a[i], ' ');

end.

 

12)

var

  n, i, count : integer;

begin

  read (n);

  count := 0;

  for i := 1 to n do

    if n mod i = 0 then inc (count);

  writeln (count);

end.

 

  

0,0(0 оценок)
Ответ:
natasha20042
01.10.2020 11:07

python

Говори если я что-то не правильно понял или если что-то не понятно

1)

from math import sqrt

a = int(input('Первая сторона: '))

b = int(input('Вторая сторона: '))

print(f'Площадь: {a*b}\nПериметр: {(a+b)*2}\nДиагональ: {sqrt(a**2+b**2)}')

2)

a = int(input('Первая сторона: '))

b = int(input('Вторая сторона: '))

c = int(input('Третья сторона: '))

[print('Равнобедренный') if a == b or a == c or b == c else print('Не равнобедренный')]

3)

from math import cos

try:

 b = int(input('b: '))

 c = int(input('c: '))

 print((b + cos(c)) / (b - c))

except ZeroDivisionError:

 print('Данный пример не имеет решения потому-что происходит деление на ноль')

4)

x = int(input('x: '))

if x > 9:

 print(36)

elif -4 <= x <= 9:

 print(2 * x)

else:

 print(x**2 + 1)

5)

score = int(input('Оценка: '))

if 1 <= score <= 3:

 print('Низкий уровень')

elif 4 <= score <= 6:

 print('Средний уровень')

elif 7 <= score <= 9:

 print('Достаточный уровень')

elif 10 <= score <= 12:

 print('Высокий уровень')

6)

n = input('Число: ')

n2 = list(n)

n2[0], n2[3] = n2[3], n2[0]

[print('Первое число больше чем второе') if int(n) > int(''.join(n2)) else print('Первое число не больше чем второе')]

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота