Блок схема паскаль

@vw171d · Регистрация: 04.06.2013

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

Помогите пожайлуста построить блок-схему
вот код

Pascal

program mes;
 var z: integer;
 s: string;
 begin
 writeln('Введите номер месяца ');
readln(z);
case z of
  1,3,5,7,8,10,12:writeln('=31');
  4,6,9,11: writeln('=30');
  2:
    begin
      writeln ('Высокосный ли год?(yes или no)'); readln(s);
      If s='yes' then writeln ('=29') else writeln('=28');
    end;
  else writeln(‘Нет такого номера месяца’);
end;
 readln;
end.

@Striker · 07.06.2013, 08:05

Держите.

@Striker SausageFlat 242 / 221 / 154 Регистрация: 19.08.2012 Сообщений: 499 Записей в блоге: 1
	07.06.2013, 08:05	2
	Держите. 0