Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

 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
if (a>7) and (a<18) writeln(Ученик) else
if (a>18) and (a<60) writeln(Рабтник) else
if (a>65) writeln(Пенсионер);
readln;
end.