М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Ввести число с клавиатуры и почитать за сколько шагов прибавление к нему 2 оно станет больше себя в 100 раз ​

👇
Ответ:
baukinakatya
baukinakatya
15.05.2022

#include <iostream>

using namespace std;

int main()

{

int a, buf, counter = 0;

cin >> a;

buf = a;

while (a < buf * 100)

{

 a += 2;

 counter++;

}

cout << counter;

system("pause");

}

с++

4,5(23 оценок)
Открыть все ответы
Ответ:
Romays
Romays
15.05.2022

ОбъЗадача. Гражданка А.О. 1 марта 2018 открыла счёт в банке, вложив 1000 рублей. Через каждый месяц размер её вклада увеличивается на 2% от имеющейся суммы. Определить: Сумму вклада через один, два, …, двенадцать месяцев.

Построение математической модели решения:

Первоначальный вклад а0=1000

1 месяц: а1=а0+а0*0,02

2 месяц: а2=а1+а1*0,02

10 месяц: а10=а9+а9*0,02

Общий случай: an=an-1+an-1*0,02

Составим программу и протестируем ее. Программа составляется совместно с ребятами на доске.

Program vklad;

Var i: integer;

a: real;

Begin Writeln (‘введите значение первоначального вклада’);

Readln (а);

i:=1;

while i<=12 do

begin a:= a+a*0,02;

writeln (a);

i:=i+1; end;

end.

Задачу вводим в паскаль и тестируем.

- Хорошо, задачу решили, а теперь поиграем с ней.

- Назовите банки в Перми, которые вы знаете или там имеют вклады ваши родители? (сбербанк)

обяснение:

ну в жизни пригодится я думаю

4,6(6 оценок)
Ответ:
6473089
6473089
15.05.2022

program Numfind;

uses

 System.SysUtils;

var

 a: array [1..10] of Integer;   // 1..10 размерность массива можно изменять, программа будет работать правильно

 i, s: Integer;

begin

 Randomize;

 for i := Low(a) to High(a) do

   a[i] := - 25 + Random (151);

 WriteLn ('Массив чисел:');

 for i := Low(a) to High(a) do

   Write (a [i], ' ');

 s := 0;

 WriteLn;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел больше 20

   if (a [i] > 20) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел больше 20 = ', s);

 s := 0;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел меньше 100

   if (a [i] > 0) and (a [i] < 100) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел меньше 100 = ', s);

 s := 0;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел кратных 3

   if (a [i] > 0) and (a [i] mod 3 = 0) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел кратных 3 = ', s);

 ReadLn

end.

4,6(35 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ