Να γίνει πρόγραμμα το οποίο
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.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου