Question

1.даны два натуральных числа а и б требуется определить сумму чисел от а до б. 2.дано натуральное число а, требуется определить есть ли в этом числе цифра 3. 3.начальный вклад в банк составил а рублей.через сколько лет он станет больше б рублей.(каждый год вклад увеличивается на 3%). паскаль abc

Answer 1

Var
   a,b:integer;
   S:real;
Begin
S:=0;
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
For b:= a to b do
    S:=S+b;
WriteLn('S = ',S);
End.

Var
   A,k:integer;
Begin
Write('a = ');ReadLn(A);
k:=0;
While A > 0 do
   Begin
   if A mod 10 = 3 then k:=1;
   A:=A div 10
   End;
if k = 1 then Write('Есть')
else Write('Нет')
End.

Var
   A,B:real;
   k:integer;
Begin
Write('a = ');ReadLn(A);
Write('b = ');ReadLn(B);
While A <= B do
   Begin
   k:=k+1;
   A:=A*1.03;
   End;
WriteLn(k);
End.