Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.

Ответ оставил Гость

Var
n:byte;
begin
write(Vvedite nomer dnya nedeli: );
readln(n);
case n of
1:writeln(Ponedelnik);
2:writeln(Vtornik);
3:writeln(Sreda);
4:writeln(Chetverg);
5:writeln(Pyatnica);
6:writeln(Subbota);
7:writeln(Voskresene);
else writeln(Net takogo dny);
end;

write(Dly vihoda nagmite Enter);
readln;
end.