Паскаль. есть n количество студентов и t время. блоха сидит на первом студенте. и за каждую секунду прыгает на следующего. программа должна вывести на каком студенте блоха окажется по окончании времени
В общем, вот Вам программа на Console Aplication: var n,t,i,a:Integer; begin Writeln('Vvedite kol-vo studentov'); Readln(n); Writeln('Vvedite kol-vo vremeni(sek)'); Readln(t); a:=1; for i:=1 to t do begin a:=a+1; if (a=n) then begin a:=0; end; if i=t then begin Writeln('cherez ', (t), ' sek bloha bydet na ', (a), ' studente'); end; end; Readln; end.
Животные потребляют готовые вещества (гетеротрофы), растения производят их сами (автотрофы)... есть различия в строении клетки...
Животные отличаются от растений развитием при для схватывания пищи.
Наиболее существенное различие между животными и растениями в питания. Зеленые растения получают из внешней среды одни лишь неорганические вещества: воду, минеральные соли из почвы и углекислый газ из воздуха. Из этих неорганических веществ в клетках зеленого растения создаются органические вещества. Такой питания называют растительным или автотрофным.
Ни одно животное не может жить за счет неорганических веществ и создавать из них в своем теле органические вещества. В отличие от растений животным необходимы для питания сложные органические вещества: белки, жиры и углеводы, которые они получают, поедая растения или других животных. Такой тип питания называется животным или гетеротрофным.
var n,t,i,a:Integer;
begin
Writeln('Vvedite kol-vo studentov');
Readln(n);
Writeln('Vvedite kol-vo vremeni(sek)');
Readln(t);
a:=1;
for i:=1 to t do
begin
a:=a+1;
if (a=n) then
begin
a:=0;
end;
if i=t then
begin
Writeln('cherez ', (t), ' sek bloha bydet na ', (a), ' studente');
end;
end;
Readln;
end.
Всё работает, проверял.