Δευτέρα 10 Νοεμβρίου 2014

Να γίνει πρόγραμμα το οποίο
1.  να διαβάζει επαναληπτικά από το πληκτρολόγιο αριθμούς.
2. Για κάθε αριθμό
α. να εμφανίζει ποιός είναι (τον εαυτό του) και
β. αν είναι άρτιος ή περιττός.

3. Ο αλγόριθμος να τερματίζει όταν πατηθεί το μηδέν 3 φορές.

program deixnw_ti_while_sta_paidia_mou;
var
 x,fores_pou_patisa_mhden:integer;
begin
  fores_pou_patisa_mhden:= 0;
  writeln('Πάτα αριθμούς από το πληκτρολόγιο οκ;)');
  readln(x);
  while fores_pou_patisa_mhden < 3 do
    begin
       writeln('Ο αριθμός που πάτησες είναι: ',x);
       if x mod 2 = 0 then
        begin
         writeln('Ο αριθμός που πάτησες είναι άρτιος');
        end
       else
        begin
         writeln('Ο αριθμός που πάτησες είναι περιττός');
        end
       ;
       if x = 0 then
        begin
         fores_pou_patisa_mhden := fores_pou_patisa_mhden + 1;
        end
       ;
       writeln('Πάτα κι άλλον άμα γουστάρεις γκιζντάνι');
       readln(x);
    end
  ;
  writeln('MPAI');
end.

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου