Var
A,C,k:real;
Begin
Write('A = ');ReadLn(A);
Write('C = ');ReadLn(C);
k:=0;
While A<=C do
Begin
A:=A*1.25;
k:=k+1;
End;
WriteLn('k = ',k)
End.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadLines('Text.txt').ToArray;
var k:=s.Count;
var n:=s.JoinIntoString.Matches('\b\d+\b').Count;
Writeln('Строк: ',k,', числовых элементов: ',n)
end.
<u>Пример</u>
Строк: 4, числовых элементов: 14
Найди в интернете калькулятор и всё