вторник, 25 апреля 2017 г.

pascal

-Сума цифр числа Обмеження часу: 1 с Обмеження пам'яті: 256 M

Задано чотирьохзначне число N. Напишіть програму, яка визначає суму цифр даного числа. Вхідні дані: число N.
Вихідні дані: знайдена сума. 12 Приклади Вхідні дані Результат роботи 1012 4

 Розв´язок

 Класична задача на поділ числа на цифри. Згідно умови дано чотирицифрове число. Отже, можна просто написати чотири команди виокремлення цифр за допомогою операцій div та mod, а потім їх додати. Нехай n=1000a+100b+10c+d. Тоді a=n div 1000, b=n mod 100 div 100, c=n mod 100 div 10, d= n mod 10.

У програмі наведено розв´язок для довільного цілого числа (у межах цілих типів мови Паскаль) і використовує цикл із передумовою. Для «довгих» чисел краще використовувати роботу з рядковим типом величин.
 var n,s:integer;
begin read(n);
 while n>0 do
 begin
 s:=s+n mod 10;
 n:=n div 10;
 end;
 write(s);
end.

Смачний сніданок у шкільній їдальні коштує А гривень і В копійок. Степан заплатив C гривень і D копійок. Напишіть програму, яка визначає здачу – гривень та копійок, що отримає Степан. Формат вхідних даних: в єдиному рядку міститься чотири натуральних числа A, B, C, D (0 ≤ A, B, C, D ≤ 100). Формат вихідних даних: виведіть два числа – здачу Степана.

 var a,b,c,d,e:longint;
begin
 read(a,b,c,d);
 e:=(c-a)*100+(d-b);
 write(e div 100,' ',e mod 100);
 end.

Коли земляни, нарешті, знайшли населену планету, вони назвали її OLYMP і відправили на неї разом із космічним кораблем одного кролика. Кролику сподобався клімат нової планети і через місяць він привів на світ ще одного кролика. Далі кролики продовжили розмножуватися з такою ж швидкістю, тобто кожен місяць кожен з кроликів, присутніх на планеті, приводив на світ ще одного кролика. Однак, розмноження кроликів стримував монстр, що звідкілясь взявся на планеті. Як тільки на початку якогось місяця кроликів ставало строго більше, ніж k, він приходив і з'їдав k кроликів. Визначте, скільки кроликів буде на планеті через n місяців після прибуття туди космічного корабля з першим кроликом. Число n від 0 до 100 включно. Число k від 0 до 10000 включно. Результат роботи методу не перевершує 2000000000. Вхідні дані: ціле число n – кількість місяців, ціле число k – кількість кроликів, що з'їдаються монстром. Вихідні дані: ціле число, рівне кількості кроликів на планеті OLYMP через n місяців після поселення туди першого кролика.

 Задача  Визначення площі трикутника за заданими координатами вершин
За заданими координатами вершин трикутника визначити його площу.
            Для визначення площі скористуємось двома процедурами за координатами знаходимо довжини сторін за довжинами сторін визначаємо площу трикутника.


вторник, 18 апреля 2017 г.

c#


Видалити з масиву парний елемент, наступний за 
максимальним

 ArrayList arr = new ArrayList() {1, 2, 3, 7, 98, 33, 2,67,3};
            int max = 0;
            int index = 0;
 
            for (int i = 0; i < arr.Count; i ++)
            {
                if (max < (int) arr[i])
                {
                     max = (int) arr[i];
                     index = i;
                }
            }
 
            for (int i = index+1; i < arr.Count; i++)
            {
               if(i % 2 == 0)
                   arr.RemoveAt(i);
            }
 
            foreach (int number in arr)
                Console.WriteLine(number);
            Console.ReadLine();

понедельник, 17 апреля 2017 г.

C#

Знаходження коренів квадратного рівняння
Дана матриця розміру M × N. Продублювати рядок матриці, що містить її максимальний елемент
Дана матриця розміром m × n. Вказати всі рядки, в яких немає від’ємних та додатніх елементів.

четверг, 6 апреля 2017 г.

c#

Дано натуральне число n. Замінювати порядок проходження цифр числа n на зворотний





Дано натуральне число n. Перевірити, чи всі цифри числа різні

Дано натуральне число, визначити кількість парних цифр в ньому

Написати програму з використанням циклу, яка виводить на екран таблицю 
множення у  і таблиці Піфагора.