program Vozrasr;
var
AGE: integer;//Переменная возраста
begin
writeln('Введите любое число от 1 до 120');
Readln(AGE); //Ввод возраста
if (AGE < 1) or (AGE > 120) then
begin
writeln('ERROR!')
end
else
begin
case AGE of //для чисел от 11 до 20 создаем отд-ый кейс
11..20: Writeln('ответ: Мне ', AGE, ' лет');
Else //иначе если они не входят в диапазон от [11..20], то выполняется второй кейс
begin
case AGE mod 10 of //делим на 10 и получаем остаток =
1: Writeln('ответ: Мне ', AGE, ' год');
2..4: Writeln('ответ: Мне ', AGE, ' года');
0, 5..9: Writeln('ответ: Мне ', AGE, ' лет');
end;
end;
end;
end;
end.
А посчитать где? Могу предложить создать таблицу в Excel. Задаем названия стоблцов:
Фамилия И.О. клиента|потребленное количество элктроэнергии| сумма к оплате.
Первый и второй столбик заполняем самостоятельно, а в третьем пишем формулу: =Если(B2<500;B2*35;Если(И(B2>500;B2<1000);B2*70;B2*150))
В2 - это ссылка я ячейку, где обозначено количество потребленной энергии. Если ее занести в другую ячейку, то ссылку надро будет сделать туда.