[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

08.06.2009, 07:46

#Wolf#

Постоянный

Регистрация: 26.03.2008

Сообщений: 311

Провел на форуме:
3799424

Репутация: 479

pascal нужно несколько задач простых

Цитата:

1) Написать программу, которая после введенного с клавиатуры числа (от 1 до 999) , обозначающего денежную еденицу, дописывает слово "рубль" в правильной форме. (Например 5 рублей, 21 рубль)

case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: write ('рубль');
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: write ('рубля');
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..99: write ('рублей');
end;
вот придумал только так...но это нерационально очень..... и тем более до 999

Цитата:

2) Написать программу, которая вычисляет стоимость междугороднего телефонного разговора. Исходными данными являются код города и продолжительность разговора.

Вобще хз. Вот вся задача.

Цитата:

3) Составить программу нахождения произведения всех членов арифметической прогрессии от 10 до 30с шагом 1,15 . Любой член прогрессии находится по формуле a=a1+(n-1)d , где n- номер члена прогрессии , a1 - первый член прогрессии , d - шаг прогрессии.

Цитата:

4) Написать программу поиска первого из двух последовательных элементов в целочисленном массиве из 10 элементов , сумма которых минимальна.

За каждую +5