Ден от седмицата

Публикувано на 05 февруари, вторник от Данаил

Да се въведе денят от седмицата с цифра и да се изведе с дума, както и подходящо съобщение, ако е въведена невалидна стойност.

Публикувано в 10а с етикети . Постоянна връзка.

One Response to Ден от седмицата

  1. bettyful каза:
    05 февруари, вторник в 15:38 
     Program Dni;
var den:integer;
begin
Write ('Vavedete den:');
readln (den);
case den of
1: writeln ('Denqt e Ponedelnik');
2: writeln ('Denqt e Vtornik');
3: writeln ('Denqt e Srqda');
4: writeln ('Denqt e Chetvurtuk');
5: writeln ('Denqt e Petak');
6: writeln ('Denqt e Subota');
7: writeln ('Denqt e Nedelq');
else writeln ('Nevaliden den');
end;
readln;
end.

Вашият коментар