Что поставить в оператор выбора case, или day нужно в переменные добавить?

@HaydoSpeed · Регистрация: 10.02.2017

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

Pascal

var s: string;
begin
  randomize;
  repeat
    write('your question:'); readln(s);
    if s='' then break;
    case day of 
      1: s:='monday';
      2: S:='THUESDAY';
      3: s:='wednesda';
      else s:='error';
      end;
    writeln(s);
  until false;
end.

@Puporev · 09.06.2017, 10:29

Pascal

var day:integer;
    s: string;
begin
write('your question:');
readln(day);
case day of
1: s:='monday';
2: S:='THUESDAY';
3: s:='wednesda';
else s:='error';
end;
writeln(s);
end.

	09.06.2017, 10:29