Одноклеточная амеба каждые три часа делится на две клетки. определить, через сколько часов станет более x амеб, если первоначально она была одна. (с использованием цикла, на языке pascal)
Var x,a,h:integer; begin read(x); while a<=x-3 do begin a:=a*2; h:=h+3; end; writeln(h); end. вроде бы как то так у меня баги паскаля на компе поэтому проверить не получилось. если что попробуй убрать "-3" в 4 строке. а так должно работать.
Program j7;var a: array of char; n: integer; i: integer; cnt: integer;begin WriteLn('Введите размер массива: '); ReadLn(n); SetLength(a,n); for i:= 0 to n-1 do begin Write('Символ № ',i+1,' '); ReadLn(a[i]); //Заполнение массива end; for i:= 0 to n-1 do begin Write(a[i]+' '); //Вывод массива (по желанию) end; WriteLn(); cnt:=0; for i:= 0 to n-1 do begin if a[i] in ['a'..'z'] then begin Inc(cnt); //подсчет маленьких латинских букв end; end; WriteLn('Количество маленьких латинских букв: ',cnt); Write('Нажмите клавишу ENTER для выхода...'); ReadLn();end.
begin
read(x);
while a<=x-3 do
begin
a:=a*2;
h:=h+3;
end;
writeln(h);
end.
вроде бы как то так у меня баги паскаля на компе поэтому проверить не получилось. если что попробуй убрать "-3" в 4 строке. а так должно работать.