pascal gde osibka
Добавлено 58 секунд назад
program KOC;
var
a:integer;
begin
cls;
writeln ('DEN NEDELI');
read (a);
case a of
1,2,3,4,5: write ('CHKOLA');
6:write ('CHKOLA');
7: write ('Voskresenie')
else writeln ('OSIBKA');
end;
end.
Тут почти весь код - ошибка, да XD
Очистка экрана в Паскале выглядит как ClrScr, а не Cls. Для того, чтобы она работала, нужно подключать графмодуль. Во второй строке напиши для этого Uses Crt;
И вообще нахрена для такой простой задачи очищать экран.. .
Непонятно, почему в операторе case 1,2.3.4.5 - школа, и 6 - тоже школа. Может добавить 6 к предыдущей строке?
подключи графический модуль, чтобы использовать очистку экрана.
usus crt; в начале.
⇢