Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

Код:

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 в 10:56.
digitalis вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ветвления KAST VOX Помощь студентам 0 30.11.2015 01:10
Ветвления AK55 Паскаль 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


03:48.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru