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

var x: integer; begin  write('введите номер дня недели: '); 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('воскресенье'); end.

4 попрощайся и захлопни дверь

6 вс выключи .

  заголовок выйди из дома

3 закрой квартиру

4 поверни ключ

1 simvol zanimaet 1 bait(tak kak imeem tekst);

tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.

da + eshe 0,3*2500=750.

vsego 2500+750=3250 bait.