Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.94/18: Рейтинг темы: голосов - 18, средняя оценка - 4.94
0 / 0 / 0
Регистрация: 12.11.2010
Сообщений: 3

дано М. Найти произведение 2*4...2*М нужно использовать слова repeat и until/

19.11.2010, 17:53. Показов 3838. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
дано М. Найти произведение 2*4...2*М

нужно использовать слова repeat и until/


вот не могу додуматься как её решить?)
помогите пожалуйста)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.11.2010, 17:53
Ответы с готовыми решениями:

С помощью оператора Repeat(while) найти произведение чисел
4. С помощью оператора Repeat(while) программа для нахождения произведения чисел

Найти произведение четных и нечетных чисел, используя оператор repeat
Введите N чисел. Найти произведение четных и нечетных чисел, используя оператор РИпит. Еще нужна блок-схема

Найти произведение всех целых чисел меньших чем А и больших 100 (repeat/until)
Нужно найти произведение всех целых чисел менше за а и больше за 100( значение ф вводится с клавиатуры) Программа должна содержать...

4
Почетный модератор
 Аватар для Puporev
64316 / 47612 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
19.11.2010, 20:18
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var m,i:integer;
    p:real;
begin
write('m=');
readln(m);
p:=1;
for i:=1 to m do
p:=p*2*i;
write('P=',p:0:0);
end.
0
0 / 0 / 0
Регистрация: 18.11.2010
Сообщений: 5
19.11.2010, 20:21
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var m,i:integer;
    p:real;
begin
write('m=');
readln(m);
p:=1;
for i:=1 to m do
p:=p*2*i;
write('P=',p:0:0);
end.
Зачем подключать модуль
Pascal
1
uses crt;
человек к не мог решить данную задачу а к нему будут лишние вопросы
0
Почетный модератор
 Аватар для Puporev
64316 / 47612 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
19.11.2010, 20:28
Зачем подключать модуль
Затем что он есть, и улучшает вид программы.

Добавлено через 40 секунд
Цитата Сообщение от Dron12 Посмотреть сообщение
человек к не мог решить данную задачу
Конечно из-за этого модуля он и не мог решить... Вот горе-то....
0
 Аватар для nonamez123
189 / 185 / 54
Регистрация: 23.10.2010
Сообщений: 1,336
19.11.2010, 21:20
если честно, меня тоже всегда мучал вопрос про crt, ибо я юзаю xcode и тут он работает через одно место)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.11.2010, 21:20
Помогаю со студенческими работами здесь

Дано предложение, где два слова различны. Найти эти слова
var mas:arrayof string; i,j,k:integer; w,s:string; begin writeln('Введите строку'); readln(s); k:=0; s:=s+' '; for i:=1 to...

Дано предложение. В нем только два слова одинаковые. Найти эти слова
Дано предложение. В нем только два слова одинаковые. Найти эти слова. Заранее спасибо

Дано предложение. В нем только два слова одинаковые. Найти эти слова
Дано предложение. В нем только два слова одинаковые. Найти эти слова. Если слов одинаковых нет, то вывести сообщение об этом. Если...

Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р
Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р.

Дано целое число N(>0) Найти произведение N!
6.Дано целое число N(>0). Найти произведение N!=1∙2∙…∙N (N – факториал). Чтобы избежать целочисленного переполнения, вычислять это...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru