Problema 4(cu intructiunea for si cu whiele-2metode de rezolvare) si problema 5(cu intructiunea while ) Dau coroana ! Va rog mult !
Anexe:
Răspunsuri la întrebare
Răspuns de
1
Raspuns in comentarii, ca aici se pune rau...
program problema_4_cu_while;
var N,T:integer;
begin
read(N);
read(T);
if T<=N then
begin
while N<>-1 do
begin
if (N mod T = 0) then writeln(N);
N -= 1;
end;
end;
end.
var N,T:integer;
begin
read(N);
read(T);
if T<=N then
begin
while N<>-1 do
begin
if (N mod T = 0) then writeln(N);
N -= 1;
end;
end;
end.
program problema_5_cu_while;
var x,N:integer;
begin
read(N);
x:=0;
while N<>0 do
begin
if (N mod 2 = 0) then x += N;
N -= 1;
end;
writeln(x);
end.
var x,N:integer;
begin
read(N);
x:=0;
while N<>0 do
begin
if (N mod 2 = 0) then x += N;
N -= 1;
end;
writeln(x);
end.
Alte întrebări interesante
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă
var N,T,x:integer;
begin
read(N);
read(T);
if T<=N then
begin
for x:=0 to N do
begin
if (x mod T = 0) then writeln(x);
end;
end;
end.