Построить блок-схему

@ВБР · Регистрация: 18.11.2013

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

Pascal

uses crt;
var x:integer;
begin
writeln('ввод года->');
read(x);
case x of
800..899:writeln('IX век');
900..999:writeln('X век');
1000..1099:writeln('XI век');
1100..1199:writeln('XII век');
1200..1299:writeln('XIII век');
1300..1399:writeln('XIV век');
1400..1499:writeln('XV век');
1500..1599:writeln('XVI век');
1600..1699:writeln('XVII век');
1700..1799:writeln('XVIII век');
1800..1899:writeln('XIX век');
1900..1999:writeln('XX век');
2000..2099:writeln('XXI век');
end;
end.

@Soniyagfto · 18.11.2013, 19:49

Предлагаю вам "погуглить":
Блок-схема для оператора выбора

@Soniyagfto 60 / 67 / 37 Регистрация: 29.01.2013 Сообщений: 374 Записей в блоге: 1
	18.11.2013, 19:49	2
	Предлагаю вам "погуглить": Блок-схема для оператора выбора 0

Опции темы