Блок-Схема

@westside26 · Регистрация: 11.11.2017

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, написать блок схему для этого кода:

Pascal

var k:byte;
begin
 
repeat
write('Введите возраст от 1 до 99 k=');
readln(k);
until k in [1..99];
case k of
11..14:write('Мне ',k,' лет');
else
 case k mod 10 of
 1:write('Мне ',k,' год');
 2..4:write('Мне ',k,' года');
 else write('Мне ',k,' лет');
 end;
end;
readln
end.

За ранее, спасибо.

@Cyborg Drone · 27.11.2017, 17:28

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,006
	27.11.2017, 17:28	2
	0