var
x: real;
cost: real; //Стоимость капитала
i: integer;
begin
cost:= 20; //Начальная стоимость равна 20
writeln('Введите ежегодный прирост в процентах');
readln(x); //Вводим ежегодный прирост в процентах
for i:= 1626 to 2012 do {Каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}
cost:= cost + cost * (x / 100);
writeln('Стоимость капитала составляла бы в этом году: ', cost : 0 : 5, ' $'); {Выводим стоимость капитала с округлением до 5 знаков после запятой}
end.
Отметь решение как лучшее)
Одна тонкость - разность первых 2-ух чисел это из первого вычитаем второе или из второго первое?
Program Chisla;
Uses Crt;
var a,b,c,d,sum:real;
begin
clrscr;
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвёртое число: ');
readln(d);
sum:=a+b+c+d;
if ((a-b)>d) and (sum<=80) then writeln(c,d)
else
if (a-b)>d then writeln(a,b,c,d)
else
if (sum<=80) then writeln(a,b)
else writeln(a+5,b+5,c+5,d+5);
readkey;
end.