|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.04.2009, 19:09 | #1 |
Регистрация: 26.04.2009
Сообщений: 7
|
Turbo pascal help plz
Помогите пожалуйста составить 3 програмки на Паскале!
1) З 6 символів і виводу на єкран рядка "YES" якщо цей текст є правильним записом цілого десяткового числа без знака кратного 7 інакше на єкран виводиться рядок "NO" (нада незабыть проверить S0 неравно 0 ? 2) З 20 символів і виводу на єкран рядка "YES" якщо цей текст починається з деякого ненульвої цифри , за якою ідуть лише цифри , і їх кількість дорівнює числовому значенні ціеї цифри.Інакше на єкран виводиться рядок "NO" (допустим мы вводим так 512347aqwertyyuadfg 3) З 20 символів і виводу на єкран рядка "YES" якщо числові значення що входять у цей текст утворюють арифметичну прогресію.Інакше на єкран виводиться рядок "NO" (формула d=an-a(n-1) |
26.04.2009, 19:20 | #2 | |
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
а по-русски?
Цитата:
|
|
26.04.2009, 19:56 | #3 |
Регистрация: 26.04.2009
Сообщений: 7
|
1)
из 6 символов и вывова на экран рядка "YES" если этот текс - правильная запись целого десятичного числа без знака кратного 7 иначе на экран виводиться рядок "NO" (нада незабыть проверить S0 неравно 0 ? 2) из 20 символов и вывова на экран рядка "YES" если этот текст начинается с некоторой ненулевой цифры , за которой идут только цифры и их количество равняеться значению этой цифры, иначе на экран виводиться рядок "NO" (допустим мы вводим так 512347aqwertyyuadfg) 3) из 20 символов и вывова на экран рядка "YES" если числовые значения что входят в этот текст образуют арифметическую прогрессию, иначе на экран виводиться рядок "NO" формула d=an-a(n-1) abc1abc2def3 123 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Turbo Pascal | Jasper92 | Помощь студентам | 17 | 25.04.2009 14:17 |
Помогите с Turbo Pascal | ohotnik | Помощь студентам | 4 | 13.04.2009 22:14 |
Turbo Pascal | dinozavr | Помощь студентам | 5 | 13.04.2009 22:10 |