Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
это неправильно
Ответ дал:
0
надо написать через while и ord clrscr не должно быть
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад