infmarta

zadaci i vežbe iz informatike za gimnazijalce

testovi prvo polugodiste

na novembar 26, 2011

PRVI TEST UVOD I6

DRUGI KRATKI TEST UVOD I6

TRECI TEST UVOD I6

JEDAN RESEN TEST

vezbanje-za-pismeni-if-i-linijska1

PISMENI 1

3-zad if, case

popravni-polugodiste

21 zad;{najmanje cetvorocifrenom broju se izbacuje ili ubacuje cifta stotina u zavisnosti od
indikatora U/I, za ubacivanje se uvodi prom. s, I-45678-4578; U-45678, s=9-   45978}
program UI;
uses wincrt; var n:LongInt;
             s:integer;
             ind:char;
             begin
             writeln(‘unesite broj najmanje cetvorocifren:’);
             readln(n);
             writeln(‘Unesite indikator I za izbacivanje cifre stotina, ili U za ubacivanje cifre stotina’);
             readln(ind);
             if (ind =’I’) or (ind=’i’) then writeln(n div 1000 * 100 + n mod 100)
              else
               if (ind=’U’) or (ind=’u’) then
                                      begin
                                      writeln(‘Unesite cifru stotina’);
                                      readln(s);
                                      writeln(n div 100 * 1000 + s*100 +n mod 100);
                                      end
                                     else writeln(‘nekorektan unos insikatora’);
end.
Advertisements

Ostavite odgovor

Popunite detalje ispod ili pritisnite na ikonicu da biste se prijavili:

WordPress.com logo

Komentarišet koristeći svoj WordPress.com nalog. Odjavite se /  Promeni )

Google+ photo

Komentarišet koristeći svoj Google+ nalog. Odjavite se /  Promeni )

Slika na Tviteru

Komentarišet koristeći svoj Twitter nalog. Odjavite se /  Promeni )

Fejsbukova fotografija

Komentarišet koristeći svoj Facebook nalog. Odjavite se /  Promeni )

Povezivanje sa %s

%d bloggers like this: