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
Jaka jest szybsza metoda od sita erastotenesa by znaleźć liczby pierwsze....
 Hetacz  52
 Pascal - komenda, która zmniejsza wartość zmiennej o inn
Jak zmienić (zmniejszyć) wartość zmiennej (X) o wartość innej zmiennej (y) do podanego w programie poziomu?? można to zrobić?? Jaka komenda ku temu służy! Zmienna (y) też musi być wpisywana z klawiatury! Chodzi mi o coś takiego! pomniejsz (X) o (y)...
 Duo02  2
 Pascal - program liczacy ilosc znakow
Proszę o pomoc w napisaniu programu w Pascalu który ma liczyć ile znaków ma plik tekstowy...
 Anonymous  10
 Dodawanie liczb w linuxie
Witam Pisze skrypt do szkoly i mam maly problem a mianowicie pisze tam ps -aux i wyskakuje m.in zurzycie pamieci i musze zsumowac kolumne bodajrze 4 zeby policzyc w sumie ile zurzyte jest pamieci (polecenie top -U odpada musze w ten sposob) np 12 ...
 Anonymous  1
 Programowanie - Pascal - Program z odczytu pliku
Mam do wykonania takie zadanie o nastepującej treści: Napisz progrqam znaki, który poda ilość znaków występujących w pliku tekstowym o podanej nazwie. (funkcja zwracająca długość łańcucha tekstowego to LENGTH(ciag). Program sprawdza poprawność wprow...
 Fristajler_2005  1
 Pascal - zbiory
mam problem z napisaniem procedury liczącej różnicę 2 losowych zbiorów poniżej zamieszczam całą resztę programu (poza tą jedną procedurą) pomógł by mi ktos pomóc to skończyć??? program RoznicaZb; const zbior = 10; type zb...
 Marika  5
 Ostatnie cztery zadania, z którymi mam problem - Pascal.
Proszę o pomoc (najlepiej rozwiązanie, jeśli jest taka możliwość) nast epujących zadań: 1. Napisz program liczby, który do pliku liczby.dat zapisze 100 losowych liczb całkowitych z przedziału , a nastepnie odczyta je z tego ...
 Fristajler_2005  6
 Pascal - 2 zadania z przetwarzania plików
1. Napisz program liczbyp podający lczbę w pliku liczby.dat z pozycji podanej jako argument (program sprawdza poprawność wprowadzonego argumentu tzn. nie może być on mniejszy o zaer i większy od rozmiaru pliku - dopuszcza jedynie poprawne argument...
 Fristajler_2005  0
 C ciągi liczb całkowitych
Mam takie dwa problemy: Mając daną tablicę dowolnych liczb całkowitych znaleźć najdłuższy posortowany podciąg. Mając daną tablicę dowolnych liczb całkowitych znaleźć podciagi ograniczone z obu stron takimi samymi elementami.(np. w ciagu 132839204 cia...
 reksiak  1
 Pascal - zadania z modułem Graph...
Witam, mam do rozwiązania dwa zadania za pomocą pętli for, które mi nie wychodzą :/ 1) narysuj na ekranie kwadrat, na nim opisane koło, na nim kwadrat, na nim koło... itd... chodzi o przetworzenie np. for i:=1 to 10 do... kwadratu i na nim kola, tylk...
 Anonymous  1
 [Pascal] co to za funkcja?
Zajmuje się Pascalem, niedawno znalazłem funkcję o nazwie void Wie ktoś co to za funkcja? ...
 rObO87  3
 [Pascal]Pryzmat
Witam musze napisac takie programik ilustrujący przejście światła białego przez pryzmat w zależności od kąta padania i kąta łamiącego pryzmatu. Kompletnie nie wiem jak sie do tego zabrac. Z wykonaniem nie ma problemu jesli chodzi o pisanie tylko jak ...
 paweb  9
 [PASCAL] iloczyn cyfr - wskazówki
Potrzebuję paru wskazówek do napisania programu, który znajdzuje najmniejszą dodatnią liczbę całkowitą Q, taką aby iloczyn jej cyfr był równy N. Jeśli taka liczba nie istnieje program powinien wypisać liczbę -1....
 Anonymous  7
 Turbo Pascal
Witam! chciałbym zapytac czy ktos zna jakis fajny kursik Pascala w sieci, który mógłby polecić ?? ...
 Anonymous  3
 pascal - jak to dokonczyc?
Zadanie: Napisz program rysujacy 10 okregow, majacych losowe promienie i srodki w losowym miejscu na ekranie, ale tylko te, ktore mieszcza sie w obrebie ekranu calkowicie... Udalo mi sie napisac program rysujace te 10 okregow; jak go skonczyc, by rys...
 meFisto  1
 
Atom [Regulamin Forum] [Instrukcja LaTeX-a] [Poradnik] [Reklama] [Kontakt]
Copyright (C) ParaRent.com