4 года назад

Составьте программу, вычисляющую, сколько лет потребуется для удвоения вложенной суммы при годовом приросте 10%.

Знания

Информатика

2 ответа:

Роман Марковский4 года назад

0 0

Begin var s := 100.0; var s1:= s; var n := 0; repeat s1:= s1 + 0.1*s1; n := n+1; until s1 >= 2 * s; writeln(n);end.

юдакова ольга [1]4 года назад

0 0

Есть такое правило, называется правило 70
T~=70/r
T-колличество лет
R - годовой процент роста
Потребуется примерно 7 лет

Читайте также

Упростите следующие формулы используя законы

Башкаус [18]

Ответ под номерам Б, я так считаю

0 0

3 года назад

составьте программы для рисования снежинок, изображённых на рисунке. эта программа называется LOGO 2 помогите пожалуйста очень с

Alice Cawthon 14 [325]

По повтори 8 [вп 50 нд 25 пр 30 вп 20 нд 20 лв 60 вп 20 нд 20 пр 210 вп 25 лв 180 пр 45]

вота)

Тока у меня лого3( Подошло? :)

0 0

4 года назад

ПОЖАЛУЙСТА, ОБЪЯСНИТЕ, КАК??? КАК ЭТО РЕШАТЬ? На Паскале Дан целочисленный массив из 30 элементов. Элементы массива могут прини

svetyli

Ответ:

const N = 30;

var a : array[1..N] of integer;

i, j, x : integer;

Begin

for i := 1 to N do readln(a[i]);

readln(x);

for i := 1 to N do begin //перебираем элементы массива

if a[i] = x then begin //если находим элемент равный Х то

writeln('наименьший номер элемента равного X - ', i); //выводим сообщение

exit; //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер

end;

writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение

end.

Объяснение:

объяснения в комментариях программы

проверено на PascalABC

0 0

4 года назад

Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет.С продажи каждой из последующих газет он получает н

MELSON

Var
    k: integer;
    a, s: real;

begin
    write('Начальная стоимость: ');
    readln(a);
    {write('Число проданных газет: ');
    readln(k);}
    k := 200;

    if k <= 50 then s := k * a
    else
    begin
        s := 50 * a;
        s := s + (k - 50) * a * 1.2;
    end;
    writeln('Выручка составила ', s, ' руб.');
end.

0 0

4 года назад

1.Каждый символ в Unicode закодирован двухбайтным словом. Оцените информационный объем следующего предложения в этой кодировке:

tatty881

Т.к 30 символов, то умножаем на 2 и получаем 60 байт.Теперь умножаем на 8 и получаем 480бит.
Ответ:2

0 0

4 года назад