[b][b][color=red]1. Визначити скільки метрів сітки потрібно, щоб загородити великий сад майже прямокутної форми із сторонами a, b, і скільки добрив (d) треба придбати, якщо на 1 м2 потрібно с кг? 2. Напишіть програму, що порівнює два дійсних числа й виводить повідомлення про те, яке з них є найменшим, або , якщо числа однакові, повідомляє про це. 3. Для заданого номера місяця вивести на екран назву пори року. Для розв’язання задачі використайте алгоритмічну конструкцію „вибір”. 4. Напишіть програму для обчислення периметра (р) і площі (s) трикутника за трьома відомими сторонами a, b, c. Програма повинна перевіряти правильність вхідних даних, тобто, чи існує трикутник. 5. Розв’язати квадратне рівняння (a ≠ 0) ax2 + bx + c = 0.Якщо d < 0, то вивести повідомлення „коренів немає”.
6. Елементи числової послідовності описуються формулою ai = 3 + cos2i. Обчислити та вивести на екран номери і значення перших n = 10 елементів. 7. Нехай елементи числової послідовності описуються формулою ai = 1 – 2cos3i, і = 1,2,…,12. Вивести на екран номери лише додатних елементів. 8. Один долар коштує 8,15 гривні. Вивести на екран у вигляді таблиці вартість 1,2,…10 доларів. 9. Скільки елементів послідовності ai = 1 – cosi, де і = 1,2,…,20, задовольняють умову 0<ai<1?[/col[/b]or][/b]
2. Напишіть програму, що порівнює два дійсних числа й виводить повідомлення про те, яке з них є найменшим, або , якщо числа однакові, повідомляє про це.
var a,b:byte; begin read(a,b); if a=b then writeln('odinakovie') else if a>b then writeln(a) else writeln(b); end.
Quote (17282118)
8. Один долар коштує 8,15 гривні. Вивести на екран у вигляді таблиці вартість 1,2,…10 доларів.
var i:byte; a:real; begin a:=8.15; for i:=1 to 10 do wriet(a*i,' '); end. Нужна помощь? Сюда: vkontakte.ru/berestovskiy
