fork(1) download
copy 
  1. program kviz;
  2. const g=9.81;
  3. const pi=3.1415;
  4. var
  5. znak,revolucioner,zelena,fevruari:char;
  6. god,zbir,god1,god2:integer;
  7. zabrzuvanje,P:real;
  8. DaNe:boolean;
  9. begin
  10.  
  11. writeln ('                 KVIZ NA ZNAENJA                  ');
  12. writeln ('--------------------------------------------------');
  13. writeln('Odgovorete gi prasanjata, sekoj odgovor nosi 5poeni');
  14. writeln('');
  15.  
  16. writeln ('1. Vnesete go znakot za mnozenje vo Pascal:');
  17. readln(znak);
  18. DaNe:=znak='*';
  19. writeln (DaNe:10);
  20. writeln('');
  21.  
  22. writeln ('2. Koja godina e ilindensko vostanie ?');
  23. readln(god);
  24. DaNe:=god=1903;
  25. writeln (DaNe:10);
  26. writeln('');
  27.  
  28. writeln ('3. Vnesete zabrzuvanje pomalo od 9:');
  29. readln(zabrzuvanje);
  30. DaNe:=zabrzuvanje<9;
  31. writeln(DaNe:10);
  32.  
  33. writeln ('4. Kolku e zbirot na broevite 601 i 999:');
  34. readln(zbir);
  35. DaNe:=zbir=1600;
  36. writeln (DaNe:10);
  37. writeln('');
  38.  
  39. writeln ('5. Jane Sandanski e makedonski...');
  40. readln(revolucioner);
  41. DaNe:=revolucioner='revolucioner';
  42. writeln (DaNe:10);
  43. writeln('');
  44.  
  45. writeln ('6. Koja boja se dobiva koga kje se izmeshaat crvena i zolta ?');
  46. readln(zelena);
  47. DaNe:=zelena='zelena';
  48. writeln (DaNe:10);
  49. writeln('');
  50.  
  51. writeln ('7. Koj mesec vo godinata ima najmalku denovi?');
  52. readln(fevruari);
  53. DaNe:=zelena='fevruari';
  54. writeln (DaNe:10);
  55. writeln('');
  56.  
  57. writeln ('8. Koja godina e sozdaden prviot elektronski kompjuter ?');
  58. readln(god1);
  59. DaNe:=god1=1946;
  60. writeln (DaNe:10);
  61. writeln('');
  62.  
  63. writeln ('9. Koja godina pocinal makedonskiot revolucioner  Goce Delcev ?');
  64. readln(god2);
  65. DaNe:=god2=1903;
  66. writeln (DaNe:10);
  67. writeln('');
  68.  
  69. writeln ('10. Koja e formula za presmetuvanje plostina na krug ?');
  70. readln(P);
  71. DaNe:=P=P=r*r*pi;
  72. writeln (DaNe:10);
  73. writeln('');
  74. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
*
1903
6
1600
revolucioner
zelena
fevruari
1946
1903
P=r*r*pi
compilation info 
nice.lang: parsing
.: parsing

/home/15Opo3/.//main.nice: line 1, column 13:
Encountered ";".
Was expecting:
    "(" ...
stdout
copy 
Standard output is empty
https://ideone.com/ib9S26
language:
Nice (nicec 0.9.13)
created:
13 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!