www.TrSek.com
 English
English 		Slovensky
Slovensky 		Česky
Česky 		Šarišsky
Šarišsky
 
Programy
Programy zos Pascalu (54)
Zadaňa zos Pascalu (212)
Vydumaňec Zadani
Programy zos Pascalu (KMP) (157)
Programy zos C, C++ (8)
Nahodny program
Pascal - po kusoch
Hraňe (20)
Zadaňa (212)
Uchaľe (27)
Krešľeňe (35)
Matematika (112)
Geometrija (23)
Slova (43)
Projekty (23)
Pridaňa (35)
Papíre
Papíre zos Pascalu (na ľehko)
Papire zos programovaňa (18)
Linky na interňetu
FAQ – takoj tipy (4)
Hutoreňa
Scahňi
Dodaj daľši program
Numera staršich HDD
Kontakty
Tvoja Reklama
Pošľi meil
Daco o mňe - Muj popis
Knižka nafštef
ICQ 207919468 ICQ
Status

Kategorija: Zadaňa zos Pascalu

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Scitanie3.pas
Subor exe: Scitanie3.exe
Program na sčítanie n náhodných čísel s rozhodnutím o párnosti (nepárnosti) súčtu.
Kuklo še: 544x

{ SCITANIE3.PAS                                  Copyright (c) Pheo }
{ Program na sčítanie n náhodných čísel s rozhodnutím o párnosti    }
{ (nepárnosti) súčtu.                                               }
{                                                                   }
{ Datum:24.4.2003                             http://www.trsek.com }
 
program scitanie3;
uses crt;
var a,b,i,n,s:integer;
 
BEGIN
  randomize;
  writeln('zvol pocet cisel:');
  read(n);
  write('s=');
  
  for i:=1 to n do
   begin
     a:= random(100);
     write(a,'+');
     S:=S+A;
   end;
   
  writeln('=',s);
  if s mod 2=0  THEN
     writeln ('sucet s= ',s,' je parny ')
  else
     writeln ('sucet s=',s,' je neparny');
     
  repeat until keypressed;
end.
 
 
[Naj beži] [Ulož] [Ciskaj] [Naj idze meilom] 
Keľo nafštef: 917352
Mena jest: Jana
Dneška jest: 21.08.2008, 22:58
Kalkulator naj.sk:

Valid HTML 4.01 Transitional
TOPlist _ TOPlist sk
Ftip:
Zeptali jsme se za Vás:
PROČ PŘEBĚHLO KUŘE PŘES CESTU?

Louis Farrakhan: Silnice představuje černého muže. Kuře přes něj přeběhlo, aby ho sociologicky srazilo dolů.

Fox Mulder: Viděli jste na vlastní oči, jak kuře přeběhlo cestu. Kolik kuřat ještě musí přeběhnout, abyste tomu uvěřili?

Richard M Nixon: To kuře cestu nepřeběhlo. Opakuji. To kuře nepřeběhlo cestu.

Machiavelli: Jde o to, že kuře přeběhlo přes cestu. Koho zajímá proč? Výsledek ospravedlní důvod, ať již byl jakýkoliv.

Freud: Skutečnost, že se zajímáte o důvod proč kuře přeběhlo přes cestu ukazuje vaši sexuální nejistotu.

Oliver Stone: Otázka nezní: "Proč přeběhlo kuře přes cestu?", ale "Čí přeběh přes cestu jsme propásli pozorujíce kuře?"

Darwin: Kuřata byla v průběhu miliónů let podrobena přirozenému výběru, takže kuřata jsou geneticky přizpůsobena k přebíhání přes cestu.

Einstein: Zda kuře přeběhlo cestu, nebo zda se cesta přesunula za kuře záleží na tom, zda stojíte v čárkované nebo nečárkované soustavě.

Buddha: Ptáte-li se takto, popíráte svou vlastní kuřecí povahu.

Ralph Waldo Emersen: Kuře cestu nepřeběhlo, ono ji transcendovalo.

Ernest Hemingway: Umřít. V dešti.

Plukovnik Sanders: Já jedno vynechal?

Hillary Clinton: Byl to akt proti Arkanssasu.

Miroslav Sládek: Můžou za to Němci.

Miloš Zeman: Minulá vláda všechno prohospodařila na obou stranách silnice.

Josef Švejk: To kuře mi připomíná jednoho drogistu, co měl krám v Nymburce na náměstí.

Hostinský Palivec: Aby *****lo silnici.

Tisková mluvčí spolešnosti RadioMobil: My máme signálem pokryté obě strany silnice a tím znovu dokazujeme, že jsem na technické špičce mobilních komunikací.

Tisková mluvčí SPT Telecom: Je to narušení našeho monopolu.

Neil Armstrong: Malý krok pro kuře, velký krok pro lidstvo.
http://www.trsek.com © Copyright 2008 TrSek, product webmaster (best resolution 1024x768)