Case a of3: a:=a+b; 4..8: a:=a-b; 9,11,15: a:=a*b; end; Конец формы
Задание 2. Составьте программу, решающую следующуюзадачу: Вводится оценка цифрами, необходимо напечатать соответствующую оценку словами.
program ozenka; var x:integer; Begin writeln ('введите оценку числом'); readln (x); Case x of 5: writeln(‘отлично’); 4: writeln(‘хорошо’); 3: writeln(‘удовлетворительно’); 2: writeln(‘неудовлетворительно’); 1:writeln('плохо'); else writeln(‘оценка введена неправильно’); end; End.
Задание 3. Написать программу, которая по введенному номеру месяца, выдавала бы время года. Фрагмент программы:
|