Evo prodje regionalno. U bl sam bio prvi kao jedini sa 100 bodova sta je smijesno. Dragon pretpostavljam da si imao 100 bodova, jel tako?
Zadatci su lagani nemam ih ovde da okacim ali evo resenja koja su bila dovoljna za 100 bodova. Interesetno da je bilo dovoljno 20min da se sve uradi.
Zadatak 1.
Kod:
program zad1;
{$mode objfpc}
var
Ulaz : string;
i : integer;
begin
Writeln('Unesite rijec:');
Readln(Ulaz);
Writeln('Unijete rijec ima: ', Length(Ulaz), ' simbola');
for i := 2 to Length(Ulaz) do
if i mod 2 = 0 then
Writeln('Simbol ', Ulaz[i], ' je na poziciji ', i);
Readln;
end.
Zadatak 2.
Kod:
program zad2;
{$mode objfpc}
var
Ulaz, i : Longint;
First : boolean;
function Check(Num : longint) : boolean;
var
i : Longint;
begin
Result := false;
for i := 2 to Num div 2 do
if Num mod i = 0 then exit;
Result := true;
end;
begin
Readln(Ulaz);
First := true;
Write('Blizanci do broja ', Ulaz, ' su: ');
for i := 2 to Ulaz - 2 do
if (Check(i) and Check(i + 2)) then
begin
if First then Write(i, ', ', i + 2)
else Write(' i ', i, ', ', i + 2);
First := false;
end;
Writeln;
Readln;
end.
Zadatak 3.
Kod:
program zad3;
{$mode objfpc}
var
S, V1, V2 : Real;
begin
Writeln('Rastojanje izmedju gradova (km): '); Readln(S);
Writeln('Brzina prvog automobila (km/cas): '); Readln(V1);
Writeln('Brzina drugog automobila (km/cas): '); Readln(V2);
if V1 + V2 = 0 then
begin
Writeln('Do susreta nece doci!');
Readln;
Halt(0);
end;
Writeln('Vrijeme susreta: ', S / (V1 + V2): 0 : 2, ' cas.');
Writeln('Put prvog automobila ', S / (V1 + V2) * V1: 0 : 2, ' km.');
Writeln('Put drugog automobila ', S / (V1 + V2) * V2: 0 : 2, ' km.');
Readln;
end.
Zadatak 4.
Kod:
program zad4;
{$mode objfpc}
var
Niz : array[1..100] of Real;
Count, i, CountSmall : Longint;
Sum : Real;
begin
FillChar(Niz, SizeOf(Niz), 0); Sum := 0; CountSmall := 0;
Writeln('Unesite broj ucenika? '); Readln(Count);
if Count = 0 then
begin
Writeln('Nema ucenika!');
Readln;
Halt(0);
end;
for i := 1 to Count do
begin
Writeln('Unesite visinu ucenika: '); Readln(Niz[i]);
Sum := Sum + Niz[i];
end;
Writeln('Prosjecna visina ucenika: ', Sum / Count : 0 : 2);
for i := 1 to Count do
if Niz[i] < Sum / Count then Inc(CountSmall);
Writeln('Broj ucenika nizih od prosjeka: ', CountSmall);
Readln;
end.
Zadatak 5.
Kod:
program zad5;
{$mode objfpc}
var
Sum : Byte;
i, j , k : Byte;
begin
Writeln('Ulaz? '); Readln(Sum);
for i := 1 to 6 do
for j := i to 6 do
for k := j to 6 do
if i + j + k = Sum then Writeln(i, ' ', j, ' ', k);
Readln;
end.
Prijavite se
Registruj se
FAQ
Pretraga
U svakom slucaju, hvala... 
