Все будет хорошо

@Vad1k · Регистрация: 25.09.2012

Author24 — интернет-сервис помощи студентам

Написать программу, которая запрашивает у пользователя ввести число и в соответствии с этим выводит предсказание о будущем. Если такого числа нет, то сообщение «Все будет хорошо!» (Например, при вводе числа 1, выводится сообщение «Вас ожидает удача»).

Kodzaev · 25.09.2012, 16:49

Pascal

Uses crt;
Var
  n: Integer;
BEGIN
Write('Введите число: '); Readln(n);
Case n of
1: Writeln('Вас ожидает удача');
2: Writeln('Вы сегодня получите двойку');
3: Writeln('Вы потолстеете');
4: Writeln('Вы заболеете');
5: Writeln('Вас ожидает богатство');
6: Writeln('Вам признаются в любви');
7: Writeln('Вас опарафинят');
Else
Writeln('Все будет хорошо =)');
end;
Readln
END.

@Vad1k 0 / 0 / 1 Регистрация: 25.09.2012 Сообщений: 191
		1
	Все будет хорошо 25.09.2012, 16:36. Показов 1306. Ответов 1 Метки нет (Все метки) Написать программу, которая запрашивает у пользователя ввести число и в соответствии с этим выводит предсказание о будущем. Если такого числа нет, то сообщение «Все будет хорошо!» (Например, при вводе числа 1, выводится сообщение «Вас ожидает удача»). 0

	25.09.2012, 16:49

Все будет хорошо

Решение