Помогите перевести программу из Паскаля в Кумир.
program food ;
var x:integer;
y:char;
begin
writeln('введите возраст, пол(одной буквой)');
readln(x);
readln(y);
if y = 'м' then
case x of
2..3: writeln('1000 калорий');
4..8: writeln('1500 калорий');
9..13: writeln('2000 калорий');
14..18: writeln('2600 калорий');
19..30: writeln('2700 калорий');
31..50: writeln('2500 калорий');
51..100: writeln('2300 калорий')
else
writeln('ошибка при вводе возраста')
end
else
if y = 'ж' then
case x of
2..3: writeln('1000 калорий');
4..8: writeln('1500 калорий');
9..13: writeln('1800 калорий');
14..18: writeln('2000 калорий');
19..30: writeln('2100 калорий');
31..50: writeln('2000 калорий');
51..100: writeln('1600 калорий')
else
writeln('ошибка при вводе возраста')
end
end.
Ответы
Программа:
алг
нач
цел х
лит пол
вывод 'Введите возраст: '
ввод х
вывод 'Введите пол (одной буквой): '
ввод пол
выбор
при пол = 'м':
выбор
при х>=2 и х<4 : вывод '1000 калорий'
при х>=4 и х<9 : вывод '1500 калорий'
при х>=9 и х<14 : вывод '2000 калорий'
при х>=14 и х<19 : вывод '2600 калорий'
при х>=19 и х<31 : вывод '2700 калорий'
при х>=31 и х<51 : вывод '2500 калорий'
при х>=51 и х<100 : вывод '2300 калорий'
иначе
вывод 'Ошибка при вводе возраста'
все
при пол = 'ж':
выбор
при х>=2 и х<4 : вывод '1000 калорий'
при х>=4 и х<9 : вывод '1500 калорий'
при х>=9 и х<14 : вывод '1800 калорий'
при х>=14 и х<19 : вывод '2000 калорий'
при х>=19 и х<31 : вывод '2100 калорий'
при х>=31 и х<51 : вывод '2000 калорий'
при х>=51 и х<100 : вывод '1600 калорий'
иначе
вывод 'Ошибка при вводе возраста'
все
иначе
вывод 'Ошибка при вводе пола'
все
кон
Результат выполнения:
