36

Pascal. Помогите решать хотя бы некоторые!

z0m8ie 31 марта 2023

Pascal. Помогите решать хотя бы некоторые! Очень нужно. Задача 1. Ввести три вещественных числа: длины сторон треугольника. А) Напечатать существует ли треугольник с такими длинами сторон; б) Если треугольник существует, то напечатать тип треугольника: остроугольный, прямоугольный или тупоугольный. Задача 2. Компьютер в первую секунду печатает на экране 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В какую секунду впервые появится число, делящееся на 2009? Задача 3. Текст состоит из слов, разделенных пробелом. Найти самое длинное слово. Если таких слов несколько, то напечатать последнее. Задача 4. Ввести натуральное число N. Это число записывается в виде суммы нескольких неубывающих натуральных слагаемых. Например, 5=1+4=2+3=1+1+3=1+1+1+2=1+1+1+1+1 Напечатать количество таких изложений (при n=5, ответ 5);

категория: информатика

68

Вторая задача: Ловите решение. Программа с помощью цикла увеличивает секунды и само число, каждый раз проверяя, делится ли число на 2009 без остатка. Ответ: на 1462 секунду. Код: var a, sec, c: integer; begin sec: =1; a: =1; while true do begin inc (sec, 1); a: =a+11; writeln ('Секунда — ', sec, ' число — ', a); if (a mod 2009=0) then break; end; writeln ('Ответ: ', a); end. Третью решу и скину либо сюда, либо в личку.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике
31 марта 2023
ПОМОГИТЕ ПОЖАЛУЙСТА 1."Вы выходите на следующей остановке? " — спросили человека в автобусе. «Нет» , — ответил он. Сколько информации содержит ответ? 2. Какой объем информации содержит сообщение, уменьшающее неопределенность знаний в 4 раза? 3. Вы подошли к светофору, когда горел желтый свет. После этого загорелся зеленый. Какое количество информации Вы при этом получили? 4. Группа школьников пришла в бассейн, в котором 4 дорожки для плавания. Тренер сообщил, что группа будет плавать на дорожке № 3. Сколько информации получили школьники из этого сообщения? 5. В корзине 8 шаров. Все шары разного цвета. Сколько информации несет сообщение о том, что из корзины д 7 остали красный шар? 6. В библиотеке 16 стеллажей. На каждом стеллаже по 8 полок. Библиотекарь сказала Оле, что интересующая ее книга, находится на 5 стеллаже, на 3 й сверху полке сверху. Какое количество информации получила Оля? 7. При угадывании целого числа в диапазоне от 1 до N было получено 4 бита информации. Чему равно N? 8. Была получена телеграмма: "Встречайте, вагон 7". Известно, что в составе поезда 16 вагонов. Какое количество информации было получено 9. При угадывании целого числа в некотором диапазоне было получено 6 бит информации. Сколько чисел содержит этот диапазон? 10. Сообщение о том, что ваш друг живет на 10 м этаже, несет 4 бита информации. Сколько этажей в доме? Сообщение о том, что петя живет во 2 м подъезде, несет 3 бита информации. Сколько подъездов в доме 11. В коробке лежат 7 разноцветных карандашей. Какое количество информации содержит в себе сообщение, что из коробки достали красный карандаш? 12. Какое количество информации несет сообщение: "встреча назначена на сентябрь"13. Какое количество информации несет сообщение о том, что встреча назначена на 15 число? 14. Какое количество информации несет сообщение о том, что встреча назначена на 23 октября в 15:0015. Какое количество информации несет сообщение о том, что нужная вам программа находится на одной из восьми дискет 16. Какое количество информации получит 2 й игрок при игре в крестики-нолики на поле 8x8, после первого хода первого игрока, играющего крестиками? 17. В рулетке общее количество лунок равно 128. Какое количество информации мы получаем в зрительном сообщении об остановке шарика в одной из лунок? 18. Происходит выбор одной карты из колоды 32 карты. Какое количество информации мы получаем в зрительном сообщении о выборе определенной карты?

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...