Определите значение переменной S после выполнения операторов:
а:=1; b:=1; S:=0;
while a<=5
do
begin
a:=a+b; b:=b+a;
S:=S+a+b;
end;

Question

Информатика: Определите значение переменной S после выполнения операторов: а:=1; b:=1; S:=0; while a =5 do begin a:=a+b; b:=b+a; S:=S+a+b; end;

anasolosina256 · Accepted Answer

А еще можно без головной боли

// PascalABC.NET 3.0, сборка 1111
var
a,b:BigInteger;
sa,sb:string;
begin
Write('Первое слагаемое: '); Readln(sa);
if BigInteger.TryParse(sa,a)=False then Writeln('Это не целое число!')
else begin
    Write('Второе слагаемое: '); Readln(sb);
    if BigInteger.TryParse(sb,b)=False then Writeln('Это не целое число!')
    else Writeln('Точный результат: ',a+b)
    end
end.

Тестовое решение:
Первое слагаемое: 5423323409523846095938445870434764308454095
Второе слагаемое: 7425543205430235436743455446541423534233
Точный результат: 5430748952729276331375189325881305731988328

Определите значение переменной S после выполнения операторов: а:=1; b:=1; S:=0; while a<=5 do begin a:=a+b; b:=b+a; S:=S+a+b; end;

MOGZ ответил

Определите значение переменной S после выполнения операторов:
а:=1; b:=1; S:=0;
while a<=5
do
begin
a:=a+b; b:=b+a;
S:=S+a+b;
end;