referaty.sk – Všetko čo študent potrebuje
Beáta
Utorok, 28. júna 2022
Vypracované programy v pascale
Dátum pridania: 27.10.2005 Oznámkuj: 12345
Autor referátu: eja
 
Jazyk: Slovenčina Počet slov: 650
Referát vhodný pre: Základná škola Počet A4: 2.2
Priemerná známka: 2.96 Rýchle čítanie: 3m 40s
Pomalé čítanie: 5m 30s
 
23. Utvorte program na výpočet ciferného súčtu kladného čísla zadaného na vstupe.
program cifry;
uses crt;
var cislo:integer;
cifra1,cifra2,cifra3,cifra4,cifra5:integer;
pomocna1,pomocna2,pomocna3,pomocna4, sucet: real;
begin
clrscr;
repeat
writeln ('zadaj cele cislo');
read (cislo);
until cislo>0;

cifra1:=cislo mod 10;
cifra2:=((cislo mod 100)-cifra1);
cifra3:=((cislo mod 1000)-cifra1-cifra2);
cifra4:=((cislo mod 10000)-cifra1-cifra2-cifra3);
cifra5:=((cislo mod 100000)-cifra1-cifra2-cifra3-cifra4);

pomocna1:=(cifra2/10);
pomocna2:=(cifra3/100);
pomocna3:=(cifra4/1000);
pomocna4:=(cifra5/10000);

sucet:=(cifra1+pomocna1+pomocna2+pomocna3+pomocna4);
writeln;
writeln('Sucet cifier je : ', sucet:2:0);
readkey;
end.
 
späť späť   2  |  3  |   4  |  5  |  6    ďalej ďalej
 
Copyright © 1999-2019 News and Media Holding, a.s.
Všetky práva vyhradené. Publikovanie alebo šírenie obsahu je zakázané bez predchádzajúceho súhlasu.