Informatika

Uždavė 10 klasės uždavinį. Berods su Pascaliu daryt reiktų. Reikia parašyt uždavinį su tokia sąlyga:

Parašykite programą, kuri suskaičiuotų kiek yra dviženklių skaiči, kurių pirmas skaitmuo yra lygus antram skaitmeniui padaugintam iš dviejų.

Gal kas mokė? Ten buvo žodžiai: begin, end. Tik tiek teatsimenu. Būsiu labai dėkingas, o kam ačiū neužteks - atsidėkosiu. :D Nebūsiu vienadienis narys. :D

Ar moki programuoti bent?

Nenoriu čia rašyt visko nuo nulio, tai tik mintį duosiu maždaug.

Vienas kintamasis, kuris iš eilės tikrins visus skaičius. Kitas kintamasis - radus tinkantį variantą padidėtų vienetu ir taip skaičiuotų.

Taigi pradedi nuo 10. Su mod ir div išskaidai skaitmenimis (dar du kintamieji), ir tikrini ar pirmas yra dvigubai didesnis už kitą, jei taip - pridedi prie kintamojo, kuris skaičiuoja. Ir taip, kol daeini iki 100 (neįskaitant).

Tiesą sakant nemoku programuot. Nebuvau kelias pamokas ir atsilikau. :D

Tai tu nori, kad kažkas viską už tave padarytų? :D

Nenoriu, kad visko padarytų, tereiktų pradžios, nes su tais kintamaisiais nesusigaudau truputį. :D

program Bevardė0;
var i,p:integer;
begin
p:=0;
for p:=10 to 99 do
 if p div 10=p mod 10*2 then i:=i+1;
writeln(i);
end.

-

Begalo dėkingas. Kai parašiai, pagalvojau, kaip negalėjau suprast, juk taip elementaru. :D Ačiū tau.

Klasioku neturi ?

Klasioku neturi ?

Tu tai tikriausiai jų turi begalę su tokiais būbsais... :D

Juk ziauru cia su tuo pascaliu yra, retai kuris supranta :D Bet mes jau baigem, tfu tfu tfu :D