Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<-----
k := a;
while s < b do begins := s+k;<------k := k+1;<----end;writeln(k)end.
если
a=15 b=36
ответ будет :15
194-11000010 в двоичную
194- С2 в шестнадцатиричную
194- 302 в восьмиричной
194 был в десятичной с/с
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32