Исходники и листинги ::: Pascal ::: приветствие

Program privet;

var

x:real;

begin

  write('который час?');

   read(x);

if (x)=8)or(x<=12) then writeln('доброе утро!');

if (x)=12)or(x<=17)then writeln('добрый день!');

if (x)=17)or(x<=23)then writeln('добрый вечер!');          

if (x)=0)or(x<=8)then writeln('доброй ночи!');

esle writeln('введённое число выходит за рамки интервала [0;24]');

end.

приветствие

Автор: Kripton

Город: Томск

Дата: 17.01.2007 07:15

Комментариев: 1

Оценка: 0 (0|0|0|0|0) [0]

Авторский комментарий к работе: Смотрите работу

Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:

voron ::: комментарий от 24.01.2007 \| 21:23
	Приверженец (ур.6) Очки: 499 Город: Томск Тв. работ: 0 Рег: 27.04.2006 (31)	эта "программа" не будет работать, так как не соблюдены правила работы в паскале.