Билет 26

Напишите программу на языке программирования (или составьте алгоритм). Коммерсант, имея стартовый капитал k рублей, занялся торговлей, которая ежемесячно увеличивает капитал на p%. Через сколько лет он накопит сумму s, достаточную для покупки собственного магазина?

Пример

Входные данные	Результат
200000 5 3000000	4

Program z3_b26;

var

s,k,p:real;

n:integer;

Begin

writeln ('Введите стартовый капитал');

readln(k);

writeln ('Введите % увеличения капитала');

readln(p);

writeln ('Введите сумму, необходимую для покупки магазина');

readln(s);

while k<s do

begin

k:=k+k*(p/100);

n:=n+1;

end;

writeln ('Количество лет -', int(n/12));

end.

Алг z3_b26 (вещ s,k,p, цел n)

арг s,k,p

рез n

нач

пока k<s

нц

k:=k+k*(p/100)

n:=n+1

кц

вывод ('Количество лет -', int(n/12))

кон

Билет 27

Напишите программу на языке программирования (или составьте алгоритм). Дано два целых положительных числа: a и b. Требуется написать программу, которая находит цифру, на которую оканчивается число a^b.

Входные данные	Результат
a=2 b=4	6

Program z3_b27;

var

a,b,d:integer;

c:byte;

Begin

writeln ('Введите a'); readln (a);

writeln ('Введите b'); readln (b);

d:=a;

if b=1 then writeln (a)

else

begin

for c:=2 to b do

d:=d*a;

d:=d mod 10;

end;

writeln (d);

end.

Алг z3_b27( цел a,b, d)

арг a,b

рез d

нач цел c

если b=1

то d :=a

иначе

для c от 2 до b

нц

d:=d*a;

кц

d:= mod (d ,10)

все

кон

Билет 28

Напишите программу на языке программирования (или составьте алгоритм). Суточный рацион коровы составляет a кг сена, b кг силоса и c кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось x центнеров сена, y тонн силоса и z мешков комбикорма по 50 кг. Сколько еще дней хозяйство сможет кормить коров по полному рациону.

program z3_b28;

var

a,b,c,x,y,z:real;

kol,к: integer;

begin

readln (a,b,c);

readln (x,y,z);

readln (к);

x:=int(x*100/a);

y:=int(y*1000/b);

z:=int(z*50/c);

kol:=0;

if (x=0) or (y=0) or (z=0)

then writeln (‘Корма не хватит ни на один день’)

else

begin

if (x<=y) and (x<=z) then kol:=int(x/к);

if (y<x) and (y<=z) then kol:=int(y/к);

if (z<x) and (z<y) then kol:=int(z/к);

end;

writeln (kol);

end.

Алг z3_b28 (вещ a,b,c,x,y,z, цел к, kol)

арг a,b,c,x,y,z, к

рез Kol

нач

x:=int(x*100/a);

y:=int(y*1000/b);

z:=int(z*50/c);

kol:=0;

если (x=0) или (y=0) или (z=0)

то вывод (‘корма не хватит’)

иначе

если (x<=y) и (x<=z) то kol:=int(x/к) все

если (y<x) и (y<=z) то kol:=int(y/к) все

если (z<x) и (z<y) то kol:=int(z/к) все

все

кон