Question

napisz program wyswietlający i zliczający liczby parzyste z zakresu podanego przez urzytkownika do działań użyj funkcji program ma być w języku pascal plis pomocy :)

Answer 1

program zadanie;
uses crt;
var
x,y,z: integer;
function parzyste(x,y:integer):integer;
var
suma:integer;
begin
suma:=0;
repeat
if x mod 2 = 0 then suma:=suma+x;
x:=x+1;
until x>y;
parzyste:=suma;
end;
begin
clrscr;
writeln('Podaj zakres');
write('Od ');
read(x);
writeln('Do ');
read(y);
writeln('wynik wynosi: ',parzyste(x,y));
repeat until keypressed;
end.

 

Answer 2

Uses Math;
Var Low, High, Amount, I: LongWord;
Begin
  Readln(Low, High);
  For I := Low To High Do
   if (I and 1 = 0) Then
     Writeln(I);
 Writeln(Floor((High-Low+1)/2));
End.