08.05.2010, 15:04 | #1 (permalink) |
Новичок
Регистрация: 08.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal
(помогите пожлст) тут запрещено дублировать, и клонировать темы ,устное предупреждение, на первый раз. Модератор. Последний раз редактировалось Eli; 08.05.2010 в 15:20 |
08.05.2010, 15:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Зачастую проблему можно решить быстрее, если ознакомиться с похожими обсуждениями Pascal Pascal Pascal На Pascal Pascal Pascal |
08.05.2010, 16:02 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR n,m,i:WORD; BEGIN Write('n= '); ReadLn(n); i:= n div 2; Repeat m:= n mod i; Dec(i); Until (m=0) or (i=1); If m=0 then WriteLn(n,' is a composite number') else WriteLn(n,' is a prime number'); ReadLn; END. |
|
08.05.2010, 18:22 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.05.2010, 08:58 | #6 (permalink) |
Новичок
Регистрация: 08.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
1)Написать программу, которая вычисляет сколько раз введённое с клавиатуры число встречается в массиве.(БЛОК-СХЕМЫ)
2)Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет среднее арифметическое его элементов. (БЛОК-СХЕМЫ) |
13.05.2010, 17:17 | #7 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Вы поиском пользоваться умеете? Ищите в этом разделе по контексту "двумерный массив", такие задачи уже много раз решали.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|