szukanie zaawansowane
 [ Posty: 2 ] 
Autor Wiadomość
Mężczyzna Offline
PostNapisane: 10 gru 2011, o 20:25 
Użytkownik

Posty: 704
Lokalizacja: Polska
Napisać program który wczytuje n i oblicza sumę liczb parzystych z przedziału [1,n] z zastosowaniem 3 pętli: repeat, while, for.
Góra
Mężczyzna Offline
PostNapisane: 10 gru 2011, o 20:55 
Użytkownik

Posty: 1272
Lokalizacja: Warszawa
rozumiem, że nie muszą być te trzy pętle jednoczesnie używane w programie? to byłby dopiero problem :D
klamerki to komentarze..
Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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.
Góra
Utwórz nowy temat Odpowiedz w temacie  [ Posty: 2 ] 


 Zobacz podobne tematy
 Tytuł tematu   Autor   Odpowiedzi 
 Algorytm wyszukiwania liczb pierwszych  Hetacz  52
 Pascal - komenda, która zmniejsza wartość zmiennej o inn  Duo02  2
 Pascal - program liczacy ilosc znakow  Anonymous  10
 Dodawanie liczb w linuxie  Anonymous  1
 Programowanie - Pascal - Program z odczytu pliku  Fristajler_2005  1
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [F.A.Q.] [Reklama] [Kontakt]
Copyright (C) ParaRent.com