• 
  • 08 January 2021
  Информатика
  • Автор: clarfrei2015

  

  
  
  program task8;
  var dn:string; ch,p:integer;
  begin
  writeln('Введите число');
  readln (ch);
  if ch > 8 then
  break;
  case ch of
  1:begin writeln ('понедельник'); writeln ('Литература'); writeln ('История'); writeln ('Алгебра'); writeln ('Английский'); writeln ('ОБЖ'); writeln ('Геометрия'); end;
  2:begin writeln ('вторник '); writeln ('Обществознание '); writeln ('Информатика'); writeln ('Физика'); writeln ('Химия '); writeln ('География'); writeln ('Английский'); writeln ('Физкультура');end;
  3:begin writeln ('среда '); writeln ('Физика'); writeln ('Физкультура'); writeln ('Алгебра'); writeln ('Алгебра'); writeln ('Французский'); writeln ('Русский'); writeln ('История');end;
  4:begin writeln ('четверг ');writeln ('Французский'); writeln ('Алгебра'); writeln ('Геометрия'); writeln ('Английский'); writeln ('Английский'); writeln ('География'); writeln ('Физкультура');end;
  5:begin writeln ('пятница '); writeln ('Информатика'); writeln ('Обществознание'); writeln ('Физика'); writeln ('Астрономия'); writeln ('Русский'); writeln ('Литература'); writeln ('Биология');end;
  6:begin writeln ('суббота '); writeln ('- в этот день занятий нет');
  7:begin writeln ('воскресенье '); writeln ('- в этот день занятий нет');
  end;
  end.

• 
  • 08 January 2021
  • Ответ оставил: petyaGavrikov

  program task8;
  var ch:integer;
  begin 
  writeln('Введите число: ');
  readln (ch);
  case ch of
  1:begin writeln ('понедельник'); writeln ('Литература'); writeln ('История'); writeln ('Алгебра'); writeln ('Английский'); writeln ('ОБЖ'); writeln ('Геометрия'); end;
  2:begin writeln ('вторник '); writeln ('Обществознание '); writeln ('Информатика'); writeln ('Физика'); writeln ('Химия '); writeln ('География'); writeln ('Английский'); writeln ('Физкультура');end;
  3:begin writeln ('среда '); writeln ('Физика'); writeln ('Физкультура'); writeln ('Алгебра'); writeln ('Алгебра'); writeln ('Французский'); writeln ('Русский'); writeln ('История');end;
  4:begin writeln ('четверг ');writeln ('Французский'); writeln ('Алгебра'); writeln ('Геометрия'); writeln ('Английский'); writeln ('Английский'); writeln ('География'); writeln ('Физкультура');end;
  5:begin writeln ('пятница '); writeln ('Информатика'); writeln ('Обществознание'); writeln ('Физика'); writeln ('Астрономия'); writeln ('Русский'); writeln ('Литература'); writeln ('Биология');end;
  6:begin writeln ('суббота '); writeln ('- в этот день занятий нет'); end;
  7:begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end;
  else writeln('Ошибка ввода');
  end; 
  end.
  
  Пример:
  Введите число 5
  пятница
  Информатика
  Обществознание
  Физика
  Астрономия
  Русский
  Литература
  Биология

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (02.10.2025) наш сайт содержит 109575 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы