Числові задачі на програмування

Числові задачі на програмування

Задача1. Написати програму на Паскалі, яка знаходить усі трицифрові числа, що самі націло діляться на 15 і сума їх цифр теж націло ділиться на 15.

program tru_zufru1; 

var a,b,c,d,e,f,j,h:integer;

begin

for a:=1 to 999 do begin

b:= a div 100;

c:=(a mod 100) div 10;

d:=(a mod 100) mod 10;

if ((b+c+d) mod 15 =0) and ((100*b+10*c+d) mod 15 =0 ) then writeln(a);

end;

end.

Задача2. Написати програму на Паскалі, яка розкодовує замок за допомогою трицифрового числа. Тобто знаходить усі трицифрові числа з ненульовою першою цифрою, і якщо то цього числа додати три, то отримаємо число сума цифр якого в три рази менша, ніж код.

program tru_zufru2; 

var a,b,c,d,e,f,j,h:integer;

begin

for a:=1 to 999 do begin

b:= a div 100;

c:=(a mod 100) div 10;

d:=(a mod 100) mod 10;

e:=a+3;

f:= e div 100;

j:=(e mod 100) div 10;

h:=(e mod 100) mod 10;

if ((f+j+h)*3)=(b+c+d) then writeln(a);

end;

end.

Задача3. Написати програму на Паскалі, яка розкодовує замок за допомогою таких операцій: із двох пар  числових трійок (а, в, с)  (а1, в2, с2) і знаходить найменше  і найбільше числа у кожній  трійці окремо. Знаходить суму двох найменших і суму двох найбільших чисел.  

program Priklad;

var

a1,a2,c1,b1,b2,c2,Min1,Min2,Max1,Max2,s1,s2:real;

procedure MinMax(a,b,c:real;var Min,Max:real);

begin

Max:=a;

if Max<b then Max:=b;

if Max<b then Max:=c;

Min:=a;

if Min>b then min:=B;

if Min>c  then min:=c;

end;

begin

writeln(' a1= ');

readln(a1);

writeln(' b1= ');

readln(b1);

writeln(' c1= ');

readln(c1);

writeln(' a2= ');

readln(a2);

writeln(' b2= ');

readln(b2);

writeln(' c2= ');

readln(c2);

MinMax(a1,b1,c1,Min1,Max1);

MinMax(a2,b2,c2,Min2,Max2);

s1:=Min1+Min2;

s2:=Max1+Max2;

writeln('s1=',s1);

writeln('s2=',s2);

END.

Задачі для самостійного програмування

Задача4. Написати програму на Паскалі, яка розкодовує замок за допомогою трицифрового числа. Тобто знаходить усі трицифрові числа з ненульовою першою цифрою, і якщо то цього числа додати два, то отримаємо число сума цифр якого в два рази менша, ніж код.

Задача5. Написати програму на Паскалі, яка дає по декілька варіантів відповідей на кожний вираз.

У виразі треба поставити дужки і математичні операції, щоб вираз був істинним.

a    a    a    a    a    = 0

a    a    a    a    a    = 1

a    a    a    a    a    = 2

a    a    a    a    a    = 3

a    a    a    a    a    = 4

a    a    a    a    a    = 5

a    a    a    a    a    = 6

a    a    a    a    a    = 7

a    a    a    a    a    = 8

a    a    a    a    a    = 9