Апта күндерін анықта

Program kunder;

Var        x: byte;

Begin

Write(‘ 1ден 7-ге дейінгі сандарды енгіз ');

Readln(x);

If x=1  then writeln(‘дүйсенбі’);

If x=2  then writeln(‘сейсенбі’);

If x=3  then writeln(‘сәрсенбі’);

If x=4  then writeln(‘бейсенбі’);

If x=5  then writeln(‘жұма’);

 If x=6  then writeln(‘сенбі’);

 If x=7  then writeln(‘жексенбі’);

Readln;

End.

 

 

 

 

Қалааралық телефон кодтарын анықта

Program kodtar;

Var kod:real;

Writeln(‘kod’);

Write(‘->’);

Readln;

Case kod of

8717: Астана;

8727: Алматы;

8722: Семей;

8713: Ақтөбе;

8718: Павлодар;

else writeln(‘8718,8727,8722,8713’);

end;

readln;

end.

            Артқа