www.TrSek.com/zadania/prevod - Program určí ciferný súčet daného čísla

Programy
Programy v Pascale (54)
Zadania Pascal (212)
Generátor Zadaní
Programy v Pascale (KMP) (157)
Programy v C, C++ (8)
Náhodný program

Pascal - kategórie
Hry (20)
Zadania (212)
Začiatočníci (27)
Grafika (35)
Matematika (112)
Geometria (23)
Reťazce (43)
Projekty (23)
Periférie (35)

Dokumenty
Príručka pre Pascal (lite)
Články o programovaní (18)
Linky na internete
FAQ – rýchle tipy (4)

Informácie
Download
Pridať program v Pascale
Parametre starších HDD

Kontakty
Vaša Reklama
Poslať e-mail
O mne – Životopis
Kniha návštev
ICQ 207919468 ICQ

Kategória: Zadania Pascal

Autor: Pheo
web: pascalsource.ic.cz

Program: Prevod.pas
Súbor exe: Prevod.exe

Program určí ciferný súčet daného čísla.

Zobrazené: 1084x

{ PREVOD.PAS                                     Copyright (c) Pheo }
{ Program určí ciferný súčet daného čísla.                          }
{                                                                   }
{ Datum:15.04.2003                             http://www.trsek.com }
 
program prevod;
uses crt;
var X:string;
    s,i,d:Integer;
begin
  Writeln('Zadaj cislo X ako retazec: ');
  Readln (X);
  s:=0;
  D:=length(X);
  for i:=1 to d do s:=s+ord(x[i])-48;
  writeln('Ciferny sucet je ', s);
  readln;
end.

[Spustiť] [Uložiť] [Tlač] [Poslať e-mailom]

Počet návštev: 957986
Meniny má: Boris
Dnes je: 14.10.2008, 02:31
Počítadlo naj.sk:

Vtip:
Ve skole povídá paní ucitelka: "A cím je tvuj tatínek, Jirko?" - "On je pekar."
"Hmm, to je hezký", na to paní ucitelka, "pece nám, deti, chléb. A tvoje maminka je cím,
Marusko?" - "Sím, ona je zdravotní sestra." "Aha, vidíte deti, stará se o nemocné."
"To je krásné povolání! A co ty Honzíku?" - "Muj tatínek tancuje nahatej v gayklubu."
"Hmmmm, povídá paní ucitelka, i taková zamestnání jsou." O prestávce prijde za Honzikem
a povídá: "Opravdu tvuj otec tancuje v tom klubu?" A Honzik odvetí: "Ne, on pracuje
v Microsoftu, ale my se za to vsichni stydíme."