Program old;
var
s: real;
y: integer;
begin
s:=20;
y:=1626;
writeln('Сейчас 1626 год и я положил в банк: ', s);
while y<2003 do
begin
s:=(s+(s*0.04));
y:=(y+1);
writeln(s,'$ В банке на ', y, ' год');
end;
end.
Итого: 52795743.6290571$ В банке на 2003 год
Так как вы не указали язык на котором вам нужна программа, то приведу на бейсике (basic) как самый вероятно подходящий. Просто скопируйте текст из приложенного файла в редактор кода и скомпилируйте, что бы получить программу.
Файл сохранен в формате WordPad
1) "Забудьте" оба наушника на телефоне, т.к. сотрите из подключенных ранее устройств.
2) Выключите оба наушника
3) Включите ПРАВЫЙ наушник
4) Подключите его к телефону, чтобы он его запомнил
5) Включите левый наушник. Если он всё ещё не синхронизируется с правым, то снова отключите пару.
6) Теперь попробуйте включить оба наушника. Правый, по старой памяти свяжется со смартфоном, а левый с правым.
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>