Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.11.2018, 15:44   #1
sah9
Новичок
Джуниор
 
Регистрация: 04.11.2018
Сообщений: 1
По умолчанию Ветвления

Напишите пожалуйста код к задаче:
Пусть значение F(n) равно кол-ву букв в записи числа n русскими
словами: F(1) = 4 (один), F(3) = 3 (три), F(42)=8 (сорок два) и т.д.
Составить программу, которая для заданного n (n<=100) печатает
выполняется ли равенство F(n)=n.
sah9 вне форума Ответить с цитированием
Старый 04.11.2018, 18:57   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Код:
const
   ms: array [1..100] of string  =
   ('один', 'два'....  тут сам допишешь)  ;

............................
   for i := 1 to 100 do
     if Length (ms(i)) = i then Writeln ('F(', i, ') =', ms[i]) ;
Тут вам не здесь, чтобы решать ваши лабы ; найди ошибку в этом коде и будешь доволен.
И никакого тут ветвления и в помине.
Нет, пардон. Есть оно. Что такое if , если не ветвление ?

Последний раз редактировалось digitalis; 05.11.2018 в 09:56.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ветвления KAST VOX Помощь студентам 0 30.11.2015 00:10
Ветвления AK55 Паскаль, Turbo Pascal, PascalABC.NET 4 06.05.2013 19:03
Ветвления Евгений2508 Помощь студентам 0 15.10.2012 12:22
Ветвления Евгений2508 Помощь студентам 0 14.10.2012 09:54
Ветвления Евгений2508 Помощь студентам 1 14.10.2012 09:50