Составьте программку оператора выбора.Просто по образцу,но со своими вариантами.Заблаговременно

Составьте программку оператора выбора.Просто по примеру,но со своими вариациями.Заранее спасибо.))

Задать свой вопрос
1 ответ
Begin
var a:integer;
WriteLN('Введите номер денька недели: ');
ReadLN(a);
if a = 1 then begin
WriteLN('Пн-Количество уроков: 6')
end;
if a = 2 then begin
WriteLN('Вторник-Количество уроков: 6')
end;
if a = 3 then begin
WriteLN('Среда-Количество уроков: 6')
end;
a = 4 then begin
WriteLN('Четверг-Количество уроков: 6')
end;
if a = 5 then begin
WriteLN('Пятница-Количество уроков: 6')
end;
if a = 6 then begin
WriteLN('Суббота-Количество уроков: 6')
end;
end.
Миша Ханчевский
Begin var a:integer;WriteLN('Введите номер денька недели: ');ReadLN(a);if a = 1 then beginWriteLN('Пн-Количество уроков: 6')end;if a = 2 then beginWriteLN('Вторник-Количество уроков: 6')end;if a = 3 then beginWriteLN('Среда-Количество уроков: 6')end;if a = 4 then beginWriteLN('Четверг-Количество уроков: 6')end;if a = 5 then beginWriteLN('Пятница-Количество уроков: 6')end;if a = 6 then beginWriteLN('Суббота-Количество уроков: 6')end;end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт