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

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

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

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

  1. marant каза:
    program Project1;
    var
     den:integer;
    begin
    write('vavedi den ot sedmicata s cifra:');
    readln(den);
    case(den) of
    1:writeln('ponedenlnik');
    2:writeln('vtornik');
    3:writeln('srqda');
    4:writeln('4etvurtuk');
    5:writeln('Petuk');
    6:writeln('subota');
    7:writeln('nedelq');
    else writeln('Nqma takuv den');
    end;
    readln;
    end.
    

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