👤

Folosind instrucțiunea WHILE, să se elaboreze programul care afișează la

ecran, într-o coloană, toate numerele întregi de pe segmentul [1. 10], în ordine

descrescătoare.

IN PASCAL!.


Răspuns :

program p1;

var n, k : integer;

begin

k := 10;

while k <> 0 do

begin

writeln(k);

k := k - 1;

end;

end.