👤
a fost răspuns

Problema 1,2,3 cu intructiunea "while", dau coroana +25 puncte!!!!

Problema 123 Cu Intructiunea While Dau Coroana 25 Puncte class=

Răspuns :

1)
var n:integer;beginread(n);while n<>0 dobeginwriteln(n);n -= 1;end;end.

2)
var n:integer;beginread(n);while n<>0 dobeginif (n mod 2 = 1) then writeln(n);n -= 1;end;end.

3)
var n:integer;beginread(n);while n<>0 dobeginif (n mod 5 = 0) then writeln(n);n -= 1;end;end.