Введите число от 1 до 7.Если 1 - понедельник,если 2 - вторник и т.д.Вывести все это **...

Question

Введите число от 1 до 7.Если 1 - понедельник,если 2 - вторник и т.д.Вывести все это на Pascal abc

Answer 1

Тоесть нужно составить программу,которая по заданному числу от 1 до 7, выводит название соответствующего ему дня?

Comments

Если да то

---

Program zadanie;

---

да

Answer 2

Var i:integer;
begin
 writeln('Введите число от 1 до 7');
 readln(i);
 case i of 
 1:writeln('Понедельник');
 2:writeln('Вторник');
 3:writeln('Среда');
 4:writeln('Четверг');
 5:writeln('Пятница');
 6:writeln('Суббота');
 7:writeln('Воскресенье');
 end;
readln;
end.

Comments

Program zadanie;
var a:integer;
Begin
Writeln('Введите число от 1 до 7');
If a=1 then writeln('Понедельник');
If a=2 then writeln('Вторник');
If a=3 then writeln('Среда');
If a=4 then writeln('Четверг');
If a=5 then writeln('Пятница');
If a=6 then writeln('Суббота');
If a=7 then writeln('Воскресенье');
End.

---

спасибо большое:)