Question

Таңдау операторын пайдаланып, апта күнінің нөмірін енгізгенде экранға екі тілде апта күні атауын шығаратын программа құру
Квадрат матрицаның бас диагональдан төмен орналасқан элементтерін нөлге айналдыратын программа құру қажет

Answer 1

var a:integer;
begin
writeln('Apta kuninin nomerin engiziniz');
readln(a);
case a of
1:  writeln('Duisenbi - Ponedelnik');
2:  writeln('Seisenbi - Vtornik') ;
3:  writeln('Sarsenbi - Sreda');
4:  writeln('Beisenbi - Chetverg') ;
5:  writeln('Zhima - Pyatnica')  ;
6:  writeln('senbi - Subbota');
7:  writeln('Zheksenbi - Voskresenie');
end;
if a>7 then writeln('kate, engizilgen san 8den kiwi bolui kerek');
end.