[Pascal] suma liczb parzystych
[Pascal] suma liczb parzystych
Napisać program który wczytuje \(\displaystyle{ n}\) i oblicza sumę liczb parzystych z przedziału \(\displaystyle{ [1,n]}\) z zastosowaniem 3 pętli: repeat, while, for.
-
- Użytkownik
- Posty: 1272
- Rejestracja: 8 sty 2011, o 18:18
- Płeć: Mężczyzna
- Lokalizacja: Warszawa
- Podziękował: 295 razy
- Pomógł: 115 razy
[Pascal] suma liczb parzystych
rozumiem, że nie muszą być te trzy pętle jednoczesnie używane w programie? to byłby dopiero problem
klamerki to komentarze..
klamerki to komentarze..
Kod: Zaznacz cały
program test;
var n,s,i:integer;
begin
readln(n);
s:=0;
{
i:=2;
while i<=n do begin
s:=s+i;
i:=i+2;
end;
}
{
for i:=1 to n do
if i mod 2 = 0 then s:=s+i;
}
i:=2;
if n>=2 then
repeat
s:=s+i;
i:=i+2;
until i>n;
writeln(s);
end.