абак это :счеты,музыкальный инструмент,устройство - id38257662 от progames2002 19.04.2021 16:29

Question

Информатика: абак это :счеты,музыкальный инструмент,устройство для работы по заданной программе,первая механическая машинаа​

progames2002 · Accepted Answer

Program Example_180;

Uses crt;

Var m,n,k:word; {n – начальное количество сундуков с

золотом, m-ежегодная " прибыль”

Чахлика Бессмертного, k – “потребности”

Василисы Премудрой}

Sum,Years:word; {Sum – ежегодное накопление Чахлика

Бессмертного, Years-возраст Василисы

Премудрой}

Begin

Clrscr;

Write ('введите начальное количество сундуков с золотом: ’);

Readln(n);

Write(‘Введите ежегодный доход Чахлика: ’);

Readln(m);

Write(‘Введите “потребности” Василисы Премудрой: ’);

Readln(k);

Sum:=n; {Начальный “капитал” Чахлика}

Years:=18; {начальный возраст Василисы}

While Sum<=k do

Begin

Sum:=Sum+m;

Years:=Years+1;

End;

Writeln(‘Василисе уже исполнилось ’,Years,’ лет.‘);

Readkey;{Задержка изображения на экране}

End.

Объяснение:

я переводила вот так получилось

абак это :счеты,музыкальный инструмент,устройство для работы по заданной программе,первая механическая машинаа