По номеру дня недели вывести соответствующее ему название program prim1; var z: integer; begin writeln('введи номер дня недели'); readln(z); if z=1 then writeln('Понедельник') else if z=2 then writeln('вторник') else if z=3 then writeln('среда') else if z=4 then writeln('четверг') else if z=5 then writeln('пятница') else if z=6 then writeln('суббота') else if z=7 then writeln('воскресенье') else writeln('нет такого дня недели'); readln; end.

program prim1; var z: integer; begin writeln('введи номер дня недели'); readln(z); case z of 1:writeln('понедельник'); 2: writeln('вторник'); 3: writeln('среда'); 4: writeln('четверг'); 5: writeln('пятница'); 6: writeln('суббота'); 7: writeln('воскресенье'); else writeln('нет такого дня недели'); end; readln; end.

k sk1sk2sk3sk4sk5

Формат оператора: Case k of K1: begin end; K2: begin end; … KN: begin end; Else begin end; End;

Задача Вводиться число от 1 до 4, определяющее пору года. Дать название этой поры года (1 - зима, 2 - весна, 3 - лето, 4 - осень).

program zadacha2; var n:byte; Begin writeln('Введите номер поры года'); readln(n); case n of 1: writeln('зима'); 2: writeln('весна'); 3: writeln('лето'); 4: writeln('осень'); else writeln('неправильно ввели номер поры года'); end; End.

Задача Составим программу "КАЛЬКУЛЯТОР", которая после ввода двух чисел и одного из знаков +, -, *, / произведёт вычисления, а результат выдаст на экран.

Домашнее задание По номеру четверти координатной плоскости вывести знаки X и Y.