Problema 1,2,3 cu intructiunea "while", dau coroana +25 puncte!!!!
Anexe:
stassahul:
doar cu while
sau si cu for si repeat?
Doar cu while!
ok
Răspunsuri la întrebare
Răspuns de
1
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.
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.
var n:integer;
begin
read(n);
while n<>0 do
begin
writeln(n);
n -= 1;
end;
end.
begin
read(n);
while n<>0 do
begin
writeln(n);
n -= 1;
end;
end.
var n:integer;
begin
read(n);
while n<>0 do
begin
if (n mod 2 = 1) then writeln(n);
n -= 1;
end;
end.
begin
read(n);
while n<>0 do
begin
if (n mod 2 = 1) then writeln(n);
n -= 1;
end;
end.
var n:integer;
begin
read(n);
while n<>0 do
begin
if (n mod 5 = 0) then writeln(n);
n -= 1;
end;
end.
begin
read(n);
while n<>0 do
begin
if (n mod 5 = 0) then writeln(n);
n -= 1;
end;
end.
Alte întrebări interesante
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
9 ani în urmă
Chimie,
9 ani în urmă
Franceza,
9 ani în urmă
Matematică,
9 ani în urmă