Определить наименьшее значение заработной платы работника с номером 4
Ответы
2. var
r: integer;
result: string;
begin
write('вводите число от 1 до 12: ');
readln(r);
case r of
1: Result := 'январь';
2: Result := 'февраль';
3: Result := 'март';
4: Result := 'апрель';
5: Result := 'май';
6: Result := 'июнь';
7: Result := 'июль';
8: Result := 'август';
9: Result := 'сентябрь';
10: Result := 'октябрь';
11: Result := 'ноябрь ';
12: Result := 'декабрь';
end;
writeln(' месяц : ',result);
end.
Объяснение:
я написал ответ только к 2 задаче
постарайся сам сделать 1 ую задачку.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Моя цель поступить программиста, но я не знаю с чего начать , подскажите
Автор: faberlic0168
Найдите длину окружности p заданного радиуса p=2pr
Автор: mnn99
Что делает программа? s = input() b = list(s) f = min(b) print(f)
Автор: eizmaylova6
Разность максимального и минимального из четырёх чисел напишите
Автор: zakup-r51
Вычислите значение суммы 10(2) + 45(8) +101(16) в десятичной системе счисления
Автор: galereyaas1568
Как найти первое двузначное число в массиве через while ?
Автор: balabina-Olesya
2. var
r: integer;
result: string;
begin
write('вводите число от 1 до 12: ');
readln(r);
case r of
1: Result := 'январь';
2: Result := 'февраль';
3: Result := 'март';
4: Result := 'апрель';
5: Result := 'май';
6: Result := 'июнь';
7: Result := 'июль';
8: Result := 'август';
9: Result := 'сентябрь';
10: Result := 'октябрь';
11: Result := 'ноябрь ';
12: Result := 'декабрь';
end;
writeln(' месяц : ',result);
end.
Объяснение:
я написал ответ только к 2 задаче
постарайся сам сделать 1 ую задачку.