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

Ответы 1

  • Var   a,b:integer;   S:real;BeginS:=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;BeginWrite('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;BeginWrite('a = ');ReadLn(A);Write('b = ');ReadLn(B);While A <= B do   Begin   k:=k+1;   A:=A*1.03;   End;WriteLn(k);End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years