Άσκηση με while την οποία ελέγχει ο χρήστης και την οποία δεν ελέγχει απλά κάνει ένα συγκεκριμένο αριθμό επαναλήψεων με βήμα 2.
program while_and_if;
var
x:integer;
begin
readln(x);
while x <> 0 do
begin
writeln(2*x);
readln(x);
end
;
writeln('Ευχαριστώ Πολύ');
x :=2;
while x <= 10 do
begin
writeln(2*x);
x := x +2;
end
;
end.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου