Ответ: var amoebas, t: integer;begin amoebas := 1; t := 0; repeat t := t + 3; amoebas := amoebas * 2; Writeln(amoebas, ‘ амеб через ‘, t, ‘ часа’); until t >= 24;end.
Источник znanija.site
Ответ: var amoebas, t: integer;begin amoebas := 1; t := 0; repeat t := t + 3; amoebas := amoebas * 2; Writeln(amoebas, ‘ амеб через ‘, t, ‘ часа’); until t >= 24;end.
Источник znanija.site