balance = int(input("Счет - "))
percent = int(input("% - "))
years = 0
print(balance)
while balance < 50000:
years += 1
balance = balance + balance * percent / 100
print(years)
Такс задача!?) Шучу... там надо закачать сначало анти вирус протереть диски и закачать
program a;
var
mas: 1..30,
ii: integer;
begin
for ii := 1 to 30
mas[ ii ] := 40 + random( 61 );
end.
Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты
program zadacha;
var x1,y1,x2,y2,x3,y3,a,b: real;
begin
writeln('Введите координаты x1,y1');
readln(x1,y1);
writeln('Введите координаты x2,y2');
readln(x2,y2);
writeln('Введите координаты x3,y3');
readln(x3,y3);
a:=(y1-y2)/(x1-x2);
b:=((y1+y2)-a*(x1+x2))/2;
if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)
then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')
end.
1) 2.25; 7,29; 9,61
<span>2) 1,5; приблизительно 2,7</span>