Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:8 олимпиадных задач 1-го семестра, Фадеева ЕП (ПОИТ) / BACTERIES01
.PAS program bacteries01;
var
i,g,r,n,k:longint;
begin
Writeln('Insert the quantity of red bacteries');
Readln(n);
Writeln('Insert the number of time tacts');
Readln(k);
r:=n;
g:=0;
i:=1;
repeat
g:=g+r;
r:=g-r;
i:=i+1;
until i>k;
Writeln(k,' tacts; ',g,' green bacteries; ',r,' red bacteries.');
end.
var
i,g,r,n,k:longint;
begin
Writeln('Insert the quantity of red bacteries');
Readln(n);
Writeln('Insert the number of time tacts');
Readln(k);
r:=n;
g:=0;
i:=1;
repeat
g:=g+r;
r:=g-r;
i:=i+1;
until i>k;
Writeln(k,' tacts; ',g,' green bacteries; ',r,' red bacteries.');
end.
Соседние файлы в папке 8 олимпиадных задач 1-го семестра, Фадеева ЕП (ПОИТ)