05.09.2016, 10:01
|
#2 (permalink)
|
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сообщение от 99alinka
Здравствуйте! Помогите, пожалуйста, решить задачу. Нужно составить блок-схему, но можно и программу. Задача: даны 5 чисел a,b,c,d,e. Подсчитать, сколько раз повторяется каждое число (если входные данные 2 5 2 5 2, то в ответе соотношение 2:3, 5:2).
|
Ну вот - на Паскале:
Код:
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.
|
|
|