посчитайте перевести программу из Паскаля в Кумир. program food ;var x:integer;y:char;begin writeln('введите возраст, пол(одной буквой)');readln(x);readln(y);if y = 'м' thencase x of2. . 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 калорий')elsewriteln('ошибка при вводе возраста')endelseif y = 'ж' thencase x of2. . 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 калорий')elsewriteln('ошибка при вводе возраста')endend.

Программа:

алг

нач

цел х

лит пол

вывод 'Введите возраст: '

ввод х

вывод 'Введите пол (одной буквой): '

ввод пол

выбор

при пол = 'м':

выбор

при х>=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 калорий'

иначе

вывод 'Ошибка при вводе возраста'

все

иначе

вывод 'Ошибка при вводе пола'

все

кон

Результат выполнения: