Помогите, пожалуйста, решить 2 вариант по информатике - №31903512

Помогите, пожалуйста, решить 2 вариант по информатике
- Предмет:
  Информатика
- Автор:
  evaristo3xar
- 6 лет назад

Ответы 1

Ответ на картинке ниже.
- Автор:
  bernabé
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

длина стадиона 3 м ширина 4 Найдите площадь и периметр стадиона Помогите пожалуйста!!!!!!!!
- Предмет:
  Математика
- Автор:
  iyanaknsf
- 6 лет назад
- Ответов:
  
  6
- Смотреть
Найдите производную функции arcsin(sinx) и объясните как искали
- Предмет:
  Математика
- Автор:
  reinaldo
- 6 лет назад
- Ответов:
  
  6
- Смотреть
текст про людину в світі
- Предмет:
  Українська мова
- Автор:
  mimi5l6b
- 6 лет назад
- Ответов:
  
  1
- Смотреть
Пришло время проверить, правильным ли было решение инвестировать деньги в заводы. Вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. Проверка проста - у всех шестеренок должен быть одинаковое количество зубцов.
Формат входных данных
Вводится целое положительное число 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 БАЛЛОВ!!!!
- Предмет:
  Информатика
- Автор:
  aydenpowell
- 6 лет назад
- Ответов:
  
  2
- Смотреть

How much to ban the user?

1 hour 1 day 100 years