Ответ(ы) на вопрос:
Гостьuses crt;
var
a,b,k,i:integer;
begin
clrscr;
writeln('Введите 18 целых чисел, в начале несколько одинаковых:'); readln(a);
k:=1;
for i:=2 to 18 do begin
readln(b);
k:=k + ord(b=a);
end;
write('Количество одинаковых в начале=',k);
readln
end.
Не нашли ответ?
Похожие вопросы