04.09.2016, 23:50 | #1 (permalink) |
Новичок
Регистрация: 04.09.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Блок-схема, но можно и программу в Паскаль или С++
|
04.09.2016, 23:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание на этот пост, в нем схожие по содержанию с вашей темы Помогите написать программу, Паскаль Составьте программу в Паскаль Блок-схема. Паскаль |
05.09.2016, 10:01 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var A:Array[1..5] of Byte; M:Set of Byte; i,j,p:Byte; Begin M:=[]; for i:=1 to 5 do begin write(Chr(96+i),' = '); readln(A[i]); end; for j:=1 to 5 do if Not(A[j] in M) then begin p:=1; M:=M+[A[j]]; if j<5 then for i:=j+1 to 5 do if A[i]=A[j] then Inc(p); writeln(A[j],':',p); end; Readln End. |
|
05.09.2016, 16:55 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
07.09.2016, 08:52 | #6 (permalink) |
Новичок
Регистрация: 04.09.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|