Информатика. решить в программе кумир: сумма 10 тысяч рублей положена в банк, при этом прирост составляет 5% годовых.составьте алгоритм, определяющий через какой промежуток времени первоначальная сумма увеличится в 2 раза.

алг

нач вещ s, s2, цел y

s : = 10000;

s2 : = 10000;

y : = 0;

 

нц пока s2 < s * 2

s2 : = s2 + (s2 / 100)*5;

y : = y + 1;

кц

 

вывод 'через ', y, ' лет.';

 

кон

Запусти программу PowerPoint.

На вкладке Главная в группе Слайды щёлкни мышью на кнопке Макет. Выбери слайд Заголовок и объект.

В поле Заголовок слайда введи текст «Времена года». Выдели введённый заголовок и перейди на вкладку Форматирование. С инструментов группы Стили WordArt придай  заголовку красочный вид.

В поле Текст слайда перечисли все времена года. Выдели получившийся маркированный список и перейдите на вкладку Главная. С инструментов группы Шрифт придай списку красочный вид.

Создай ещё один слайд (команда Создать слайд). Выполни команду Макет — Два объекта.

Озаглавь слайд «Зима». Придай  заголовку красочный вид.

В одно из полей для ввода текста введи любое известное вам четверостишие о зиме. Если компьютер подключен к Интернету, используй  эту возможность для поиска соответствующего стихотворения.

В свободное поле вставь рисунок из файла Зима (из папки Заготовки). Если компьютер подключен к Интернету, используй  эту возможность для поиска соответствующего изображения.

Аналогичным образом создай слайды «Весна», «Лето» и «Осень».

Перейди  на первый слайд. Необходимо связать слово «зима» с соответствующим слайдом, иначе говоря, создать гипересылку. Выдели слово «Зима» и выполните команду Вставка — Гиперссылка.

В окне Вставка гиперссылки выбери Связать с: — местом в документе. Выберите место в документе - слайд Зима. Подтверди свой выбор щелчком на кнопке ОК. Обрати внимание, как изменилось слово «зима» на первом слайде.

Объяснение:

Объяснение:

program Xxx;

const

  RndLimit = 10000;

var

  x : integer;

begin

Repeat x := Random(RndLimit) until x > 999;

  writeLn('Random X= ', x);

  WriteLn('Modifyed X=', (x mod 1000 mod 100 mod 10), (x mod 1000 mod 100 div 10) , (x mod 1000 div 100) , (x div 1000) );

end.

=====

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64                                                                          

Copyright (c) 1993-2012 by Florian Klaempfl and others                                                                                

Target OS: Linux for x86-64                                                                                                            

Compiling main.pas                                                                                                                    

Linking a.out                                                                                                                          

10 lines compiled, 0.3 sec                                                                                                            

                                                       

Random X= 5488                                                                                                                        

Modifyed X=8845                                                                                                                        

                                                                                                                                     

                                                                                                                                     

...Program finished with exit code 0                                                                                                  

Press ENTER to exit console