Размещено 3 года назад по предмету
Информатика
от
sherlock2187
ПОМОГИТЕ СРОЧНО!!!!!!!!!!!!!
Скопировать (или набрать) следующую программу в редактор установленной среды программирования:
program week
var entity: day; chislo: integer;
begin
write('Введите число от 0 до 6 в зависимости от дня недели (понедельник - 6, вторник - 5 и так далее): ');
readln(entity);
if entity=1 then writeln('Понедельник начинается в субботу! Необходимо проверить, всё ли в порядке: 5+6*9=', 5+6*9, '! Ура!');
if entity=6 then
begin
write('А сколько будет 5+6*9... когда сосчитаешь, сообщи результат: ');
readln(chislo);
if chislo=5+6*9 then writeln('Отлично! Можешь заняться уроками!') else writeln('Запомни, 5+6*9=',5+6*9)
end;
if entity=5 then
begin
write('А сегодня сколько будет 5+6*9, как думаешь?? Сообщи результат: ');
readln(chislo);
if chislo=5+6*9 then writeln('Отлично! Пора наконец заняться уроками!') else writeln('Запомни, 5+6*9=',5+6*9)
end;
if entity=4 then
begin
write('Ты запомнил(а), сколько 5+6*9?? Сообщи немедленно: ');
readln(chislo);
if chislo=5+6*9 then writeln('Отлично! Пора наконец заняться уроками!') else writeln('Возможно, я ошибаюсь, но, по-моему, 5+6*9=',5+6*9)
end;
if entity=3 then writeln(Я тоже уже не знаю, сколько будет 5+6*9... давай теперь учиться вместе, эх!);
end
Исправить ошибки, встроенные учителем, отладить и запустить
Дополнить программу, добавив необходимые действия для пятницы (entity=2) и воскресенья (entity=0)
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.