Составить программу, которая по порядковому номеру денька недели выводит соответствующую фразу-

Var
  a:byte;
begin
  write('Enter number days, or 0, to exit application-gt;');
  repeat
  readln(a);
  If a=1 Then writeln('Monday');
  If a=2 Then writeln('Tuesday');
  If a=3 Then writeln('Wednesday');
  If a=4 Then writeln('Thursday');
  If a=5 Then writeln('Friday');
  If a=6 Then writeln('Saturday');
  If a=7 Then writeln('Sunday');
  until a=0;
  writeln('Goodbye');
end.

Вася Крапчин 2019-07-12 18:12:27

Jnajhvfnbheqnt? gj;fkeqcnf

Дарья Шимена 2019-07-12 18:21:52

на английском языке, чтобы вы немножко покапались в коде

Виолетта 2019-07-12 18:27:28

Текст обязан быть отформатирован в ответе. Комменты, как досадно бы это не звучало, будут позже отрезаны.

Mihail Vyhristenko 2019-07-12 18:34:27

Да это косячек при копировании, как видите в коментарии он нормально вставляется

Безфамильная Мирослава 2019-07-12 18:36:26

Я разумею...поправьте

Евгения Квартальнева 2019-07-12 18:45:20

ок

Арсений 2019-07-12 18:55:12

"Enter number days" - смесь британского с нижегородским? )))

Nina 2019-07-12 18:56:46

и не разговариваете, я учил германский, да можно сказать и не учил, рашентранслишен, но граматишен)))

Jelina 2019-07-12 19:04:40

"Enter number days" шрайбен ферботен)))

Люба Непогодьева 2019-07-12 19:07:58

я, я, их верстее)))

Егор Башицер · Answer 2 · 2019-07-12 18:11:59+3:00

Var d: integer;

begin

readln(d);

If (dgt;=1) and (dlt;=5) then
writeln('Рабочий денек');
If d = 6 then
writeln('Суббота');
If d = 7 then
writeln('Воскресенье');

end.

О проекте

Составить программу, которая по порядковому номеру денька недели выводит соответствующую фразу-

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