1. Написать программу, которая спрашивает «Который час?» и, в зависимости от введенного...

Question

1. Написать программу, которая спрашивает «Который час?» и, в зависимости от введенного времени, выводит на экран приветствие: «Доброе утро», «Добрый день», «Добрый вечер», «Спокойной ночи».
2. Составьте программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным весом и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100.
Помогите решить 2 задачи

Answer 1

1)
var x:integer;
beginwrite('который час? ');
read(x);
If (x>=0) and (x<6) then writeln('Спокойной ночи');<br>If (x>=6) and (x<12) then writeln('Доброе утро');<br>If (x>=12) and (x<18) then writeln('Добрый день');<br>If (x>=18) and (x<24) then writeln('Добрый вечер');<br>end.

2)
var a,b,x:integer;
beginwrite('введите рост: ');
read(a);
write('введите вес: ');
read(b);
x:=a-100;
if x>b then writeln('Нужно поправиться')
else
writeln('Нужно поxудеть');
end.

Comments

спасибо