перевести программу из Паскаля в Кумир. 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.
269
468
Ответы на вопрос:
Популярно: Информатика
-
Irish2319.07.2020 11:24
-
MrZheka1718.01.2022 16:45
-
taitpaev200305.01.2022 05:59
-
bestway55513.04.2023 02:23
-
крымнаш13.08.2022 15:39
-
Гогич24.05.2023 17:48
-
Alexgk1323.01.2020 20:49
-
katyushakot20106.05.2021 09:18
-
oytu16.01.2021 01:48
-
ромочка653226.08.2020 10:33