fork download
copy 
  1. program ideone;
  2. var i: integer; {Переменная i хранит целое число}
  3. begin
  4. 	for i:=1 to 3 do {Повторяем циклически операцию вывода для i = 1, 2, 3}
  5. 		WriteLn('Море волнуется ', i);
  6.  
  7. 	Randomize; {Запускаем генератор случайных чисел}
  8. 	Write('Морская фигура ');
  9. 	i:=Random(3); {Получаем случайное число от 0 до 2 - всего 3 разных варианта}
  10.  
  11. 	{Теперь в зависимости от полученного случайного числа выдаем то или иное слово}
  12. 	if i = 0 then 
  13. 		Write('ЗАМРИ!')
  14. 	else if i = 1 then
  15. 		Write('СГОРИ!')
  16. 	else
  17. 		Write('УМРИ!');
  18. 	WriteLn;
  19. end.
Success #stdin #stdout 0.02s 4112KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Море волнуется 1
Море волнуется 2
Море волнуется 3
Морская фигура УМРИ!
https://ideone.com/muysFj
language:
Pascal (gpc 20070904)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!