1) Составьте прграмму,в которой определялось бы является ли введеный символ гласной или...

Question

1) Составьте прграмму,в которой определялось бы является ли введеный символ гласной или согласной буквой латинского алфавита. 2) Составьте программу-меню,выводящую расписание уроков в 1 из 3-ёх дней недели. 3) Напишите программу,которая анализирует человека по возрасту и относит к одной из четырёх групп: дошкольник,ученик,работник,пенсионер. *Паскаль. Заранее спасибо*

Answer 1

 2)

var i:integer;
begin
writeln('Введите цифру означающюю день недели, например 2-вторник');
readln(i);
case i of
1:writeln('Понедельник: Алгебра,Геометрия,Русский,Физ-ра');
2:writeln('Вторник Информатика,История,Изо');
3:writeln('Среда,Английский,Искусство');
else writeln('ERROR');

readln;
end;

3)

var a:integer;
begin
writeln('Введите ваш возраст');
readln(a);
if (a<7) then writeln('Дошкольник') else<br>if (a>7) and (a<18) writeln('Ученик') else<br>if (a>18) and (a<60) writeln('Рабтник') else<br>if (a>65) writeln('Пенсионер');
readln;
end.