IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Помогите решить задачки, Экзамен((
сообщение
Сообщение #1


Гость






Помогите решить задачки,готовлюсь к экзамену и понимаю то,что ничего не понимаю)
Буду очень благодарен,если уж не за решение,так хоть на ссылку на хороший ресурс...но лучше уж за решение)

1) Структура проекта.
Найти среднее арифметическое значение чётных чисел в промежутке от M до N. Ввод чисел M и N. Вывести M,N и среднее арифметическое число.

2) Элементы программ.
Составить программу для вычисления n! . Ввод n с клавиатуры.

3) Целые типы данных.
Составить программу для подсчёта количества чисел из последовательности 0,3,6,9,12....,чтобы сумма их была >500. Вывести сумму,колличество и последнее число.

4) Тип дата-время.
Составить программу для вычисления суммы,разности,произведения и частного двух чисел. Ввод двух чисел в объект Edit, одновременный вывод суммы,разности,произведения и частного в объект Memo.

5) Простые порядковые типы.
Ввод произвольных символов в строку,организовать вывод в другой объект только те символы,номер которых чётное число.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 52
Пол: Мужской
Реальное имя: Александр

Репутация: -  1  +


1. число проверяется на нечетность функцией ODD : boolean;

2 .факториал:
Код
  f:=1;
    for i:=1 to 5 do
    f:=f*i;


3. Каким образом последовательность задана? Если массив, тогда:
Код
While Sum<500 do
sum:=sum+a[i];
inc(i);


4. Уточняй задачу? Толи время, толи числа?

5. Считываем в массив, и аналогично п.1. проверяем четность.


--------------------
With best regards, Better Kind
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 1:53
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name