1. даны два натуральных числа а и б требуется определить сумму чисел от а до б.

2. дано натуральное число а, требуется определить есть ли в этом числе цифра 3.

3. начальный вклад в банк составил а рублей. через сколько лет он станет больше б рублей. (каждый год вклад увеличивается на 3%). Паскаль abc

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.