Определить прирост поголовья скота - Pascal ABC

Формулировка задачи:

Поголовье скота в колхозе увеличивалось каждый год. Прирост числа коров составил 7%, а сви-ней – 15%. Определите, через сколько лет количество свиней будет больше количества коров не менее чем на 100? число коров и свиней,как я полагаю,вводится с клавиатуры. код есть,но врядли правильный. помогите,пожалуйста разобраться.спасибо.
program prj1;
var a,b,c,a1,b1:real;
begin
writeln ('Введите количество коров и свиней');
readln (a,b);
c:=0;
a1:=0;
b1:=0;
repeat
a1:=a/100*7;
b1:=b/100*15;
c:=c+1;
until (b>a+100);
write(c);
end.

Код к задаче: «Определить прирост поголовья скота - Pascal ABC»

textual
program prj1;
var a,b:real;
    c:integer;
begin
writeln ('Введите количество коров и свиней');
readln (a,b);
c:=0;
repeat
a:=a+a/100*7; //прирост за один год коров
b:=b+b/100*15; //прирост за один год свиней
c:=c+1;  //года считается
writeln (c,' год', a:5:0, 'коров  ', b:5:0,'свиней'); //можно это опустить, там ноль потомучто, коровы и свиньи не могут быть дробными
until (b>a+100); //условие про разницу в 100 голов
write(c);
end.

9   голосов, оценка 4.444 из 5


СОХРАНИТЬ ССЫЛКУ