Пришло время проверить, правильным ли было решение инвестировать деньги в заводы. вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. проверка проста - у всех шестеренок должен быть одинаковое количество зубцов. формат входных данных вводится целое положительное число n, где n - количество деталей для проверки (2 < n < 1000) вводится n целых чисел m, где m - количество зубцов у каждой шестеренки (1 < m < 100) формат выходных данных выводится сообщение yes в случае, если количество зубцов у всех шестеренок оказалось одинаковым и no, если хотя бы одна из них имеет отличное от других количество зубцов найти ошибку var n,s,i,m,m1: int64; begin s: =0; read(n,m1); for i: =1 to n-1 do begin read(m); if m = m1 then s: =s+1; m: =m1; end; if s = n or m1 then begin write('yes'); end; if s < > n or m1 then write('no'); end. 45

274

411

Посмотреть ответы 2

Ответы на вопрос:

ArtLeg

Информатика

4,4(35 оценок)

//ошибка в if.

//в принципе можно обойтись и без вычисления s. просто

//прерывать цикл при несовпадении двух шестеренок и

//выводить no

var

n, s, i, m, m1: int64;

begin

s : = 0;

read(n, m1);

for i : = 1 to n - 1 do

begin

read(m);

if m = m1 then

s : = s + 1;

m : = m1;

end;

if (s = n - 1) then

write('yes');

if (s < > n - 1) then

write('no');

end.

VikaNika16

Информатика

4,8(43 оценок)

A: array [1..100] of integer; z : array [1..12] of integer; var b : array [1..8] of char; mas : array [1..100] of real; day : array [5..34] of integer; a[3] : = 5; write (a[7]); read (a[1]); sum : = a[1] + a[2] + a[3]; for i : = 1 to 15 do sum : = sum + a[i]; for i : = 1 to 10 do write (c[i]); tmp : = a[1]; a[1] : = a[15]; a[15] : = tmp; for i : = 1 to 20 do b[i] : = random (62) - 24;

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.