Вопрос по информатике:
1.даны два натуральных числа а и б требуется определить сумму чисел от а до б.
2.дано натуральное число а, требуется определить есть ли в этом числе цифра 3.
3.начальный вклад в банк составил а рублей.через сколько лет он станет больше б рублей.(каждый год вклад увеличивается на 3%). Паскаль abc
- 23.01.2018 16:10
- Информатика
- remove_red_eye 11853
- thumb_up 12
Ответы и объяснения 1
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.
- 24.01.2018 17:43
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.