УМОЛЯЮ ВАС
Задание 2 ( ).

Создать слайд средствами редактора презентаций «Разделы информатики», используя авторазметку Маркированный список для разделов

ОС Windows;
Текстовый процессор Word
Табличный процессор Excel
СУБД Access
Программирование VBA
Презентации в PowerPoint
Для этого необходимо:

Установить для заголовка текста "Разделы информатики" размер шрифта – 45, цвет – белый, синюю заливку, серую тень.
Установить для списка размер шрифта – 30, цвет – синий, тень – черная.
Установить фон слайда – заливка градиентная, один цвет – светло-розовый, горизонтальная штриховка.
Установить для заголовка (Заглавие) – эффект: Пишущая машинка, появление текста По буквам.
Установить для подзаголовка (Текст) – эффект: Появление сверху, появление текста Все вместе.

Объяснение:

program friendfullNumbers;

uses crt;

var a: longint;

b, i, s, s1: integer;

{a - первое число;

b - делители числа s;

i - делители числа a;

s - сумма делителей первого числа;

s1 - сумма делителей s}

begin

clrscr;

for a:= 2 to 30000 do {цикл для проверки первых чисел}

begin

s:=0;

for i:= 1 to a-1 do {находим все делители числа а,

исключая само число}

if a mod i = 0 then s:= s+i; {находим сумму делителей числа а}  

s1:=0;

for b:= 1 to s-1 do {цикл для проверки вторых чисел, которые являются суммой делителей первого числа}

if s mod b = 0 then s1:= s1 +b; {находим все делители числа s (сумма делителей числа а)}

if (s1=a) and (s< >a) then writeln (a, ' ', s); {сумма делителей суммы делителей числа а должна быть равна числу A, а сумма делителей числа A не должна быть равна этому числу}

end;  

end.

Class OftenChar{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in);
  String string = in.nextLine(); char chars[] = new char[4];
  chars[0] = in.nextLine().charAt(0); chars[2] = in.nextLine().charAt(0);
  for(int sChar = 0; sChar<string.length(); sChar++)
   if(string.charAt(sChar)==chars[0])chars[1]++;
   else if(string.charAt(sChar)==chars[2])chars[3]++;
  System.out.print("\n"+(chars[1]==chars[3]?chars[0]+""+chars[2]:chars[1]>chars[3]?chars[0]:chars[2]));
 }
}