1)
var n:integer;
begin
writeln('Введите номер месяца: ');
readln(n);
if (n = 1) or (n = 2) or (n = 12) then
writeln('Зима');
if (n = 3) or (n = 4) or (n = 5) then
writeln('Весна');
if (n = 6) or (n = 7) or (n = 8) then
writeln('Лето');
if (n = 9) or (n = 10) or (n = 11) then
writeln('Осень');
end.
2)
var n:real;
begin
writeln('Введите температуру: ');
readln(n);
if (34.1 <= n) and (n <= 36.4) then
writeln('Пониженная');
if (36.5 <= n) and (n<= 36.6) then
writeln('Нормальная');
if (36.7 <= n) and (n <= 41) then
writeln('Повышенная');
if (n <= 34) or (n > 41) then
writeln('Не может быть!');
end.
В pascal операции mod и div к вещественным типам недоступны, поэтому округляем их через Round. Можно поменять на Trunc - он возвратит только целую часть.
Однако правильнее будет делать через case:var a, b: real; s: string; begin readln(a); readln(b); readln(s); case s of char.ToString('+'): write(a + b); char.ToString('-'): write(a - b); char.ToString('/'): if b <> 0 then write(a / b) else write('Деление на 0!'); char.ToString('*'): write(a * b); 'mod': if b <> 0 then write(Round(a) mod Round(b)) else write('Деление на 0!'); 'pow': write(power(a, b)); 'div': if b <> 0 then write(Round(a) div Round(b)) else write('Деление на 0!'); end; end.Пояснение:В case '+', '-', '/', '*' воспринимаются как char, поэтому переводим их в string через стандартный метод класса char: char.ToString( )
Примеры работ:Поделитесь своими знаниями, ответьте на вопрос:
Решили бабушке собрать урожай яблок. они собрали 90 кг яблок. у них было 15 ящиков: 3 ящика вместимостью 10 кг, 5 ящиков по 7 кг и 7 ящиков по 5 кг. какое минимальное количество ящиков им понадобится? 13 15 12 14
Возьмем ящики с наибольшей вместимостью и сложим их:
3 * 10 = 30 кг
После чего, возьмем ящики вместимостью по 7 килограмм и снова же сложим их сумму:
5*7 = 35 кг
Сложим сумму и колличество ящиков с наибольшей и средней вместимостью:
Сумма = 30+35= 65 кг
Колл-во = 3+7 = 10 ящ
Теперь в последний раз сложим сумму предыдущих вычислений с суммой и колл-вом ящиков с наименьшей вместимостью, но так, чтобы сумма не превышала 90 кг. Т.е нам нужно складывать по 1 ящику до того момента, пока их сумма не будет равна 90кг:
Максимальное колл-во используемых нами ящиков, не должно превышать 7.
65+5=70 кг - 11ящ;
70+5=75кг - 12 ящ;
75+5 =80кг - 13 ящ;
80+5 = 85кг - 14 ящ;
85+5 = 90кг - 15 ящ;
Как видим, мы уложились в 15 ящиков, это и будет являться ответом.