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

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

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

Един коментар по Ден от седмицата

  1. bettyful каза:
     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.       

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