Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
2596 в 10 системе счисления
Вот тебе пример)
while not EOF(FTemp) do
begin
ReadLn(FTemp, S);
WriteLn(FT, S)
end;
{ Закрытие входного файла }
Close(FT);
{ Усечение размера временного файла до 0 }
Rewrite(FTemp);
{ Закрытие временного файла }
Close(FTemp)
end;
Слушай сама головой работай . Мозги тебя для чего ? Давай сама
...
{
int v,v1,s,s1,t;
cin>>v>>v1>>s>>t;
s1=(v*t)+(v1*t)+s;
cout<<s1;
return 0;
}
P.s. программа написана с учетом того, что все велечины целочисленные, если требуется усложнение в виде обработки вещественных данных, то замените целочисленный тип integer на float или double (в данном случае разницы нет). Формула расстояния s=v*t, т.е. мы находим сколько за t часов проедет 1 автомобиль, потом 2, потом складываем эти значения и добавляем туда же расстояние, которое уже было между ними