23. Унети број а и уколико је он већи од 5 а мањи од 10 наћи његов квадрат, у осталим ситуацијама наћи број који је за 10 већи од унетог.
program andor;
var a,b,c:integer;
begin
writeln(‘Unesite neki broj:’);
readln(a);
if (a<10) and (a>5) then
begin
b:=a*a;
writeln(b);
end
else
begin
c:=a+10;
writeln(c);
end;
readln;
end.
24. Нека се са тастатуре уносе цели бројеви а1, а2, и а3. Напиши програм којим се израчунава збир бројева који се налазе у интервалу 5 до 9.
program sumabrojeva;
var a1,a2,a3,suma : integer;
begin
Writeln(‘Unesite a1 : ‘);
Readln(a1);
Writeln(‘Unesite a2 : ‘);
Readln(a2);
Writeln(‘Unesite a3 : ‘);
Readln(a3);
suma := 0;
if ((a1 >=5) and (a1 <= 9)) then suma := suma+a1;
if ((a2 >=5) and (a2 <= 9)) then suma := suma+a2;
if ((a3 >=5) and (a3 <= 9)) then suma := suma+a2;
WriteLn(‘Suma brojeva koji se nalaze u intervalu od 5 do 9 je:’);
WriteLn(suma);
Readln;
end.
25.Унети произвољан број a са тастатуре. Уколико је тај број у интервалу између 0 и 5 или у интервалу између 45 и 50 тада на излазу написати број који је дупло већи од унетог. У осталим ситуацијама на излазу написати број који је три пута већи од унетог.
program mmmmm;
var a,b,c,d:integer;
begin
readln(a);
if ((a<5) and (a>0)) or ((a<50)and(a>45)) then
b:=a+a
else
b:=a+a+a;
writeln(b);
readln;
end.
26.Написати програм користећи и инструкцију FOR којом се исписују сви бројеви од 1 до 100 који су дељиви бројем 7 и бројем 3.
Program deljivost;
Var i :integer;
Begin
For i:=1 to 100 do
Begin
If (i mod 7)=0 and (i mod 3)=0 then
Writeln(i);
End;
Readln;
End.
27.Написати програм којим се исписује колико је бројева између 1 и 90 који су дељиви бројем 2 а нису дељиви бројем 4.
program proizdva;
var i,s:integer;
begin
s:=0;
for i:=1 to 90 do
begin
if ((i mod 4)=0) and (i mod 4)<>0) then
inc(s);
end;
writeln(s);
readln;
end.