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

Публикувано на 20 март, вторник от Данаил

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

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

3 Responses to Ден от седмицата

  1. marant каза:
    20 март, вторник в 17:10 
    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.

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