outlaw

Ačiū tau labai. Ir dar vieno noreciau paklaust Duotas sveikasis skaičius, priklausantis uždaram intervalui nuo –999 iki 999. Parašykite programą, kuri išvestų pranešimą, nusakantį skaičiaus ženklą ir iš kiek skaitmenų jis susideda. Pavyzdžiui, įvedus 54, programa turėtų pranešti, kad tai teigiamas dviženklis skaičius, įvedus –101, jog tai yra neigiamas triženklis skaičius; jeigu buvo įvestas nulis, reikia išvesti pranešimą, kad įvestas nulis. Bandziau daryt taip bet aiskiai klaidu priveliau program noname3; var a : integer; begin writeln('Iveskite skaiciu'); Read(a); if a<-100 th

Galit padet isprest kelis uzdavinius su paskaliu? Vienas Parašyta programa, kuri turėtų rasti skaičių sum, lygų skaičiaus n skaitmenų sumai (pavyzdžiui, jei n = 154, tai sum = 10): program suma; var n, sum: integer; begin sum := 0; readln(n); while n >= 0 do begin sum := sum + n div 10; n := n div 10; end; writeln(sum); end. Tačiau šioje programoje yra klaidų. Perrašykite programą ir ištaisytas klaidas pažymėkite kita spalva. Ir kita Duota programa mažiausiam ir didžiausiam natūraliojo skaičiaus skaitmeniui rasti: program minmax; var min, max, s, sk :

Nebereike.