fork download
  1. program ideone;
  2. // Перед вами - WEB-среда разработки PascalABC.NET (версия 1.0, апрель 2011 г.).
  3. // Она основана на современном языке PascalABC.NET, совместимом с Turbo Pascal
  4. // и Delphi Pascal. Программа запускается на сервере, ввод-вывод передается по сети.
  5. // Программу можно опубликовать и ссылаться на нее в Интернете в виде
  6. // http://p...content-available-to-author-only...c.net/WDE/?file=имя_опубликованного_файла.pas
  7. // Зарегистрированные пользователи получают дополнительные возможности:
  8. // долговременное хранение своих программ, возможность работы с папками
  9. var
  10. c,d:integer;
  11.  
  12. procedure P(x,y:integer);
  13. begin
  14. y:=x+1;
  15. end;
  16.  
  17. procedure Q(x:integer; var y:integer);
  18. begin
  19. y:=x+1;
  20. end;
  21.  
  22. // procedure R(var x,y:integer);
  23. // begin
  24. // y:=x+1;
  25. // end;
  26.  
  27. begin
  28. c:=2; d:=0; P(sqr(c)+c,d); writeln(d);
  29. //c:=2; d:=0; Q(sqr(c)+c,d); writeln(d);
  30. //c:=2; d:=0; R(sqr(c)+c,d); writeln(d);
  31. end.
  32.  
  33. class Pupils:
  34. School_Name = 'школа 23'
  35. def __init__ (self, name, surname, age, grade):
  36. self.name = name
  37. self.surname = surname
  38. self.age = age
  39. self.grade = grade
  40. Pup_1 = Pupils ('Андрій', 'Петренко', '14', '7-А')
  41. Pup_2 = Pupils ('Ольга', 'Зубко', '14', '8-А')
  42.  
  43. print (Pup_1.name, Pup_1.surname, Pup_1.grade, Pupils.School_Name)
Success #stdin #stdout 0s 5316KB
stdin
Standard input is empty
stdout
0