Question

Sa se scrie 3 programe Pascal cu instructiunile for, write, repeat, while, care sa calculeze suma numerelor naturale pare mai mici sau egale cu N.

(Rog sa fie fara elmente din alte programe ca c++ sau altele)

Answer 1

Sper ca nu am gresit.

WHILE

write('n= ');readln(n);
i:=2;s:=0;
while i<=n do
begin
     s:=s+1;
     i:=i+1;
end;

FOR

s:=0;
for i:=2 to n do
     if (i mod 2 = 0)
          s:=s+1;

REPEAT

s:=0;i:=2;
repeat
     s:=s+1;
until i>n;