T-shirt apdruka,un mazo uzlīmju taisīšana. 4
Profesionālie tulkošanas pakalpojumi. 5
Pardod: MSI GeForce RTX 2080ti gaming X TRIO Graphic Card 1
Vēlos piedāvāt darbu online. 0
OCTA termiņš 13
Ka sauc Pasaules dalu kura dzivojam 4
google 1
Taustiņu funkcijas izmainīšana 2
Torrent 1
ESET izlaiž 2017.gada produktu izdevumus 23
VIAPLAY: Video tiešsaistē skatās 70% Latvijas iedzīvotāju 21
Katrā desmitajā datorā joprojām izmanto Windows XP 2
Google tuvākajā laikā atteiksies no Chrome paplašinājuma palaidēja 2
Acer ievieš nozares pirmo ieliekto monitoru ar acu izsekošanas funkcionalitāti 4
Adobe laiž klajā ārkārtas atjauninājumu 3
Tests: Cik precīzs ir "lēta gala" velo spidometrs? 3
Leģendārie telefoni – Nokia 3310 un citi 3
Puisis iziet Super Mario spēli mazāk kā piecu minūšu laikā un labo pasaules rekordu 2
Līdz 29.jūlijam atjaunini savu Windows bez maksas! 3
Kā uzlabot televizora skaņu? 2
Programma, ar kuras palīdzību fotogrāfijas pārveidot .gif formātā 1
Aproce, kas sastāv no 25 instrumentiem 1
Trīs padomi televizora izvēlei 2
Windows 7 ēra tuvojas noslēgumam, Microsoft koncentrējas uz Windows 10 1
Lietotāji online: 87
Reģistrētie lietotāji online: 0
Viesi online: 87
Sveiki! man vajadzetu jusu palidzibu.
man ir dots shads uzd.
Uzrakstiet programmu, kas ievadītiem naturāliem skaitļiem n un m atrod tādu mazāko iespējamo naturālo skaitli k, kuram vienlaicīgi izpildās sekojošas īpašības:
1) k > n
2) k dalās ar m bez atlikuma.
Ievaddatu faila skaitlis.in pirmajā rindā dotas divu naturālu skaitļu n (0 < n <= 32000) un m (0 < m <= 500) vērtības, kas atdalītas ar tukšumsimbolu. Izvaddatu faila skaitlis.out vienīgajā rindā jāizvada skaitļa k vērtība.
Piemērs
skaitlis.in skaitlis.out
38 17 51
un problemas man rada tas ka isti nezinu ka nodefinet to k, lai proga vinu rekinatu
Lūdzu kāds izpalīdziet!
nezinu, kas nepariezi
type int=1..32000;
int2=1..500;
var n:int;
var m:int2;
var k:integer;
begin
writeln(n,m);
k:=x*m;
writeln(k);
readln;
end.
kaut kas tur nav ta ka vaig, tik man nedalec kas???
....
k:=n+1; // 1.nosaciijums k>n
while (k mod m)<>0 do begin //2.nosacijums
inc(k);
end;
//k atrasts
....
manuprāt šitam būtu jāstrādā...
Sapratu nepilnību, tad jau var tā
...
x:=0;
repeat
inc(x);
k:=x*m;
until k>n;
...
Nu jau labāk, bet vēl var nesākt no 0 :)
Risinājums, neskaitot ievadu un izvadu, faktiski ir tikai viena rindiņa:
k = (n \ m) * m + m
Pats uzdevums:
http://www.lio.lv/olimps/uzdevumi.php?show=41
http://vip.latnet.lv/lio/ARHIVS/LIO00/skola00u.htm
..
k,x: Integer
k=x*m