Дан 4

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.

Advertisements

Оставите одговор

Попуните детаље испод или притисните на иконицу да бисте се пријавили:

WordPress.com лого

Коментаришет користећи свој WordPress.com налог. Одјавите се / Промени )

Слика на Твитеру

Коментаришет користећи свој Twitter налог. Одјавите се / Промени )

Фејсбукова фотографија

Коментаришет користећи свој Facebook налог. Одјавите се / Промени )

Google+ photo

Коментаришет користећи свој Google+ налог. Одјавите се / Промени )

Повезивање са %s