De afișat numerele pare din intervalul a, b introduse de la tastatura
PS rezolvat în turbo pascal
Răspunsuri la întrebare
Răspuns de
1
program AfisarePare;
var a, b, num:integer;
begin
write('a='); read(a);
write('b='); read(b);
if (a mod 2=1) then a:=a+1;
num:=a;
writeln('Numerele pare din intervalul [a, b] sunt: ');
while num<=b do
begin
write(num, ' ');
num:=num+2;
end;
end.
grigore2018:
Eu am scris asa ceva,ideea e aceiasi : )
var
a, b: integer;
begin
repeat
write('Enter a: '); readln(a);
write('Enter b: '); readln(b);
until (a > 0) and (a < b);
while a <= b do
begin
if a mod 2 = 0 then writeln(a);
a := a + 1;
end;
end.
a, b: integer;
begin
repeat
write('Enter a: '); readln(a);
write('Enter b: '); readln(b);
until (a > 0) and (a < b);
while a <= b do
begin
if a mod 2 = 0 then writeln(a);
a := a + 1;
end;
end.
Alte întrebări interesante
Engleza,
8 ani în urmă
Limba română,
8 ani în urmă
Informatică,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
9 ani în urmă