{"id":80,"date":"2016-03-25T16:45:34","date_gmt":"2016-03-25T16:45:34","guid":{"rendered":"http:\/\/tpallas.net\/pascal\/?page_id=80"},"modified":"2016-04-10T17:27:18","modified_gmt":"2016-04-10T17:27:18","slug":"%ce%bb%cf%85%ce%bc%ce%ad%ce%bd%ce%b5%cf%82-%ce%b1%cf%83%ce%ba%ce%ae%cf%83%ce%b5%ce%b9%cf%82","status":"publish","type":"page","link":"https:\/\/tpallas.net\/pascal\/%ce%bb%cf%85%ce%bc%ce%ad%ce%bd%ce%b5%cf%82-%ce%b1%cf%83%ce%ba%ce%ae%cf%83%ce%b5%ce%b9%cf%82\/","title":{"rendered":"\u039b\u03c5\u03bc\u03ad\u03bd\u03b5\u03c2 \u03b1\u03c3\u03ba\u03ae\u03c3\u03b5\u03b9\u03c2"},"content":{"rendered":"

(\u0395\u03ac\u03bd \u03ad\u03c7\u03b5\u03c4\u03b5 \u03b5\u03bd\u03c4\u03bf\u03c0\u03af\u03c3\u03b5\u03b9 \u03c4\u03c5\u03c7\u03cc\u03bd \u03bb\u03ac\u03b8\u03b7 \u03c0\u03b1\u03c1\u03b1\u03ba\u03b1\u03bb\u03ce \u03b5\u03bd\u03b7\u03bc\u03b5\u03c1\u03ce\u03c3\u03c4\u03b5 \u03bc\u03b1\u03c2.)<\/p>\n

Program Athroisma;
\n{ \u03a4\u03bf \u03c0\u03c1\u03cc\u03b3\u03c1\u03b1\u00b5\u00b5\u03b1 \u03b1\u03c5\u03c4\u03cc \u03c5\u03c0\u03bf\u03bb\u03bf\u03b3\u03af\u03b6\u03b5\u03b9 \u03ba\u03b1\u03b9 \u03b5\u03ba\u03c4\u03c5\u03c0\u03ce\u03bd\u03b5\u03b9 \u03c4\u03bf \u03ac\u03b8\u03c1\u03bf\u03b9\u03c3\u00b5\u03b1 \u03ba\u03ac\u03c0\u03bf\u03b9\u03c9\u03bd \u03b1\u03c1\u03b9\u03b8-
\n\u00b5\u03ce\u03bd, \u03c4\u03b5\u03bb\u03b5\u03b9\u03ce\u03bd\u03b5\u03b9 \u03b4\u03b5 \u03cc\u03c4\u03b1\u03bd \u03c4\u03bf \u03ac\u03b8\u03c1\u03bf\u03b9\u03c3\u00b5\u03ac \u03c4\u03bf\u03c5\u03c2 \u03be\u03b5\u03c0\u03b5\u03c1\u03ac\u03c3\u03b5\u03b9 \u03c4\u03bf 1.000 }
\nVar
\na, s : Real;
\nBegin
\ns := 0; { \u03b1\u03c0\u03cc\u03b4\u03bf\u03c3\u03b7 \u03b1\u03c1\u03c7\u03b9\u03ba\u03ae\u03c2 \u03c4\u03b9\u00b5\u03ae\u03c2 \u03c3\u03c4\u03b7 \u00b5\u03b5\u03c4\u03b1\u03b2\u03bb\u03b7\u03c4\u03ae }
\nRepeat { \u03bf\u03b9 \u03c0\u03b1\u03c1\u03b1\u03ba\u03ac\u03c4\u03c9 \u03b5\u03bd\u03c4\u03bf\u03bb\u03ad\u03c2 \u03b5\u03c0\u03b1\u03bd\u03b1\u03bb\u03b1\u00b5\u03b2\u03ac\u03bd\u03bf\u03bd\u03c4\u03b1\u03b9 \u00b5\u03ad\u03c7\u03c1\u03b9\u03c2 \u03cc\u03c4\u03bf\u03c5 }
\nReadln(a); { \u03b7 \u00b5\u03b5\u03c4\u03b1\u03b2\u03bb\u03b7\u03c4\u03ae s \u03b3\u03af\u03bd\u03b5\u03b9 \u00b5\u03b5\u03b3\u03b1\u03bb\u03cd\u03c4\u03b5\u03c1\u03b7 \u03b1\u03c0\u03cc 1000 }
\ns := s+a
\nUntil s>1000;
\nWriteln(s);
\nEnd.<\/p>\n

Program MAX;
\n{ \u03a4\u03bf \u03c0\u03c1\u03cc\u03b3\u03c1\u03b1\u00b5\u00b5\u03b1 \u03b1\u03c5\u03c4\u03cc \u03b2\u03c1\u03af\u03c3\u03ba\u03b5\u03b9 \u03c4\u03bf\u03bd \u00b5\u03b5\u03b3\u03b1\u03bb\u03cd\u03c4\u03b5\u03c1\u03bf \u03b1\u03c0\u03cc \u03c4\u03c1\u03b5\u03b9\u03c2 \u03b1\u03c1\u03b9\u03b8\u00b5\u03bf\u03cd\u03c2 a, b, c.
\n\u03a7\u03c1\u03b5\u03b9\u03ac\u03b6\u03b5\u03c4\u03b1\u03b9 \u03bd\u03b1 \u03bf\u03c1\u03af\u03c3\u03bf\u03c5\u00b5\u03b5 \u00b5\u03b9\u03b1 \u03b2\u03bf\u03b7\u03b8\u03b7\u03c4\u03b9\u03ba\u03ae \u00b5\u03b5\u03c4\u03b1\u03b2\u03bb\u03b7\u03c4\u03ae max, \u03cc\u03c0\u03bf\u03c5 \u03b5\u03ba\u03b5\u03af \u03b8\u03b1 \u03ba\u03b1\u03c4\u03b1\u03c7\u03c9-
\n\u03c1\u03bf\u03cd\u00b5\u03b5 \u03c0\u03c1\u03bf\u03c3\u03c9\u03c1\u03b9\u03bd\u03ac \u03c4\u03bf\u03bd \u00b5\u03b5\u03b3\u03b1\u03bb\u03cd\u03c4\u03b5\u03c1\u03bf \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc }
\nVar
\na, b, c, max : Real;
\nBegin
\nWriteln(‘\u0394\u03ce\u03c3\u03b5 \u03c4\u03bf\u03c5\u03c2 \u03c4\u03c1\u03b5\u03b9\u03c2 \u03b1\u03c1\u03b9\u03b8\u00b5\u03bf\u03cd\u03c2 : ‘);
\nReadln(a, b, c);
\nmax := a;
\nIf b > max then max := b;
\nIf c > max then max := c;
\nWriteln(‘\u039f \u00b5\u03b5\u03b3\u03b1\u03bb\u03cd\u03c4\u03b5\u03c1\u03bf\u03c2 \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc\u03c2 \u03b5\u03af\u03bd\u03b1\u03b9 \u03bf : ‘, max);
\nEnd.<\/p>\n

Program Monos_Zygos;
\n{\u03a4\u03bf \u03c0\u03c1\u03cc\u03b3\u03c1\u03b1\u00b5\u00b5\u03b1 \u03b1\u03c5\u03c4\u03cc \u03b2\u03c1\u03af\u03c3\u03ba\u03b5\u03b9 \u03b1\u03bd \u03ad\u03bd\u03b1\u03c2 \u03b1\u03ba\u03ad\u03c1\u03b1\u03b9\u03bf\u03c2 \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc\u03c2 \u03b5\u03af\u03bd\u03b1\u03b9 \u00b5\u03bf\u03bd\u03cc\u03c2 \u03ae \u03b6\u03c5\u03b3\u03cc\u03c2}
\nVar
\nk, p, y : Longint;
\nBegin
\nWriteln(‘\u0394\u03ce\u03c3\u03b5 \u03ad\u03bd\u03b1\u03bd \u03b1\u03ba\u03ad\u03c1\u03b1\u03b9\u03bf \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc : ‘);
\nReadln(k);
\np := k div 2; { \u03b5\u03cd\u03c1\u03b5\u03c3\u03b7 \u03c4\u03bf\u03c5 \u03c0\u03b7\u03bb\u03af\u03ba\u03bf\u03c5 }
\ny := k mod 2; { \u03b5\u03cd\u03c1\u03b5\u03c3\u03b7 \u03c4\u03bf\u03c5 \u03c5\u03c0\u03bf\u03bb\u03bf\u03af\u03c0\u03bf\u03c5 }
\nIf y = 0 then
\nWriteln(‘\u039f \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc\u03c2 \u03b5\u03af\u03bd\u03b1\u03b9 \u03b6\u03c5\u03b3\u03cc\u03c2’)
\nElse
\nWriteln(‘\u039f \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc\u03c2 \u03b5\u03af\u03bd\u03b1\u03b9 \u00b5\u03bf\u03bd\u03cc\u03c2’);
\nEnd.<\/p>\n

Program Antistrofh;
\n{ \u03a4\u03bf \u03c0\u03c1\u03cc\u03b3\u03c1\u03b1\u00b5\u00b5\u03b1 \u03b1\u03c5\u03c4\u03cc \u03b4\u03b9\u03b1\u03b2\u03ac\u03b6\u03b5\u03b9 \u03ad\u03bd\u03b1\u03bd \u03b4\u03b9\u03c8\u03ae\u03c6\u03b9\u03bf \u03b1\u03ba\u03ad\u03c1\u03b1\u03b9\u03bf \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc \u03ba\u03b1\u03b9 \u03c5\u03c0\u03bf\u03bb\u03bf\u03b3\u03af\u03b6\u03b5\u03b9
\n\u03ba\u03b1\u03b9 \u03b5\u03ba\u03c4\u03c5\u03c0\u03ce\u03bd\u03b5\u03b9 \u03c4\u03bf\u03bd \u03b1\u03ba\u03ad\u03c1\u03b1\u03b9\u03bf \u03c0\u03bf\u03c5 \u03c0\u03c1\u03bf\u03ba\u03cd\u03c0\u03c4\u03b5\u03b9 \u03b1\u03c0\u03cc \u03c4\u03b7\u03bd \u03b1\u03bd\u03c4\u03b9\u03c3\u03c4\u03c1\u03bf\u03c6\u03ae \u03c4\u03c9\u03bd \u03c8\u03b7\u03c6\u03af\u03c9\u03bd
\n\u03c4\u03bf\u03c5 }
\nVar
\nx, p, y, x1 : Byte;
\nBegin
\nWriteln(‘\u0394\u03ce\u03c3\u03b5 \u03ad\u03bd\u03b1\u03bd \u03b4\u03b9\u03c8\u03ae\u03c6\u03b9\u03bf \u03b1\u03ba\u03ad\u03c1\u03b1\u03b9\u03bf \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc : ‘);
\nReadln(x);
\np := x div 10; { \u03b5\u03cd\u03c1\u03b5\u03c3\u03b7 \u03c4\u03bf\u03c5 \u03c0\u03b7\u03bb\u03af\u03ba\u03bf\u03c5 }
\ny := x mod 10; { \u03b5\u03cd\u03c1\u03b5\u03c3\u03b7 \u03c4\u03bf\u03c5 \u03c5\u03c0\u03bf\u03bb\u03bf\u03af\u03c0\u03bf\u03c5 }
\nx1 := y * 10 + p; { \u03c3\u03c7\u03b7\u00b5\u03b1\u03c4\u03b9\u03c3\u00b5\u03cc\u03c2 \u03c4\u03bf\u03c5 \u03b1\u03bd\u03c4\u03af\u03c3\u03c4\u03c1\u03bf\u03c6\u03bf\u03c5 \u03b1\u03c1\u03b9\u03b8\u00b5\u03bf\u03cd }
\nWriteln(‘\u039f \u03bd\u03ad\u03bf\u03c2 \u03b1\u03c1\u03b9\u03b8\u00b5\u03cc\u03c2 \u03b5\u03af\u03bd\u03b1\u03b9 : ‘, x1);
\nEnd.<\/p>\n

Program Praxis;
\n{ \u03a4\u03bf \u03c0\u03c1\u03cc\u03b3\u03c1\u03b1\u00b5\u00b5\u03b1 \u03b1\u03c5\u03c4\u03cc \u03b4\u03b9\u03b1\u03b2\u03ac\u03b6\u03b5\u03b9 \u03b4\u03cd\u03bf \u03b1\u03c1\u03b9\u03b8\u00b5\u03bf\u03cd\u03c2 \u03ba\u03b1\u03b9 \u03ad\u03bd\u03b1 \u03b1\u03c0\u03cc \u03c4\u03b1 \u03c4\u03ad\u03c3\u03c3\u03b5\u03c1\u03b1 \u03c3\u03cd\u00b5\u03b2\u03bf-
\n\u03bb\u03b1 \u03c4\u03b7\u03c2 \u03b1\u03c1\u03b9\u03b8\u00b5\u03b7\u03c4\u03b9\u03ba\u03ae\u03c2 (+ – * \/) \u03ba\u03b1\u03b9 \u03ba\u03ac\u03bd\u03b5\u03b9 \u03c4\u03b7\u03bd \u03b1\u03bd\u03c4\u03af\u03c3\u03c4\u03bf\u03b9\u03c7\u03b7 \u03c0\u03c1\u03ac\u03be\u03b7 \u03c3\u03c4\u03bf\u03c5\u03c2 \u03b1\u03c1\u03b9\u03b8\u00b5\u03bf\u03cd\u03c2 }
\nVar
\na, b, r : Real;
\nz : Char;
\nBegin
\nWriteln(‘\u0394\u03ce\u03c3\u03b5 \u03c4\u03bf\u03c5\u03c2 \u03b4\u03cd\u03bf \u03b1\u03c1\u03b9\u03b8\u00b5\u03bf\u03cd\u03c2 : ‘);
\nReadln(a, b);
\nWriteln(‘\u0394\u03ce\u03c3\u03b5 \u03c4\u03bf \u03c3\u03cd\u00b5\u03b2\u03bf\u03bb\u03bf \u03c4\u03b7\u03c2 \u03c0\u03c1\u03ac\u03be\u03b7\u03c2 : ‘);
\nReadln(z);
\nCase z of
\n‘+’ : r := a + b;
\n‘-‘ : r := a – b;
\n‘*’ : r := a * b;
\n‘\/’ : r := a \/ b;
\nEnd; { case }
\nWriteln(‘\u03a4\u03bf \u03b1\u03c0\u03bf\u03c4\u03ad\u03bb\u03b5\u03c3\u00b5\u03b1 \u03b5\u03af\u03bd\u03b1\u03b9 : ‘, r);
\nEnd.<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"

(\u0395\u03ac\u03bd \u03ad\u03c7\u03b5\u03c4\u03b5 \u03b5\u03bd\u03c4\u03bf\u03c0\u03af\u03c3\u03b5\u03b9 \u03c4\u03c5\u03c7\u03cc\u03bd \u03bb\u03ac\u03b8\u03b7 \u03c0\u03b1\u03c1\u03b1\u03ba\u03b1\u03bb\u03ce \u03b5\u03bd\u03b7\u03bc\u03b5\u03c1\u03ce\u03c3\u03c4\u03b5 \u03bc\u03b1\u03c2.) Program Athroisma; { \u03a4\u03bf \u03c0\u03c1\u03cc\u03b3\u03c1\u03b1\u00b5\u00b5\u03b1 \u03b1\u03c5\u03c4\u03cc \u03c5\u03c0\u03bf\u03bb\u03bf\u03b3\u03af\u03b6\u03b5\u03b9 \u03ba\u03b1\u03b9 \u03b5\u03ba\u03c4\u03c5\u03c0\u03ce\u03bd\u03b5\u03b9 \u03c4\u03bf \u03ac\u03b8\u03c1\u03bf\u03b9\u03c3\u00b5\u03b1 \u03ba\u03ac\u03c0\u03bf\u03b9\u03c9\u03bd \u03b1\u03c1\u03b9\u03b8- \u00b5\u03ce\u03bd, \u03c4\u03b5\u03bb\u03b5\u03b9\u03ce\u03bd\u03b5\u03b9 \u03b4\u03b5 \u03cc\u03c4\u03b1\u03bd…<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":[],"_links":{"self":[{"href":"https:\/\/tpallas.net\/pascal\/wp-json\/wp\/v2\/pages\/80"}],"collection":[{"href":"https:\/\/tpallas.net\/pascal\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/tpallas.net\/pascal\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/tpallas.net\/pascal\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/tpallas.net\/pascal\/wp-json\/wp\/v2\/comments?post=80"}],"version-history":[{"count":6,"href":"https:\/\/tpallas.net\/pascal\/wp-json\/wp\/v2\/pages\/80\/revisions"}],"predecessor-version":[{"id":133,"href":"https:\/\/tpallas.net\/pascal\/wp-json\/wp\/v2\/pages\/80\/revisions\/133"}],"wp:attachment":[{"href":"https:\/\/tpallas.net\/pascal\/wp-json\/wp\/v2\/media?parent=80"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}