0 / 0 / 0
Регистрация: 04.03.2018
Сообщений: 5
1

Цикл: Вывести сообщение YES в случае, если количество зубцов у всех шестеренок оказалось одинаковым

06.03.2019, 21:53. Показов 2012. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
C. Циклы. Строим город - 11.1
0
Имя входного файла
стандартный ввод
Имя выходного файла
стандартный вывод
Ограничение по времени
2 секунды
Ограничение по памяти
64 мегабайта
Пришло время проверить, правильным ли было решение инвестировать деньги в заводы. Вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. Проверка проста - у всех шестеренок должен быть одинаковое количество зубцов.
Формат входных данных
Вводится целое положительное число n, где n - количество деталей для проверки (2 < n < 1000)
Вводится n целых чисел m, где m - количество зубцов у каждой шестеренки (1 < m < 100)
Формат выходных данных
Выводится сообщение YES в случае, если количество зубцов у всех шестеренок оказалось одинаковым и NO, если хотя бы одна из них имеет отличное от других количество зубцов
Примеры
входные данные выходные данные
5
2 3 2 2 2
NO
12
6 6 6 6 6 6 6 6 6 6 6 6
YES
Отправить на проверку
Номер посылки
Язык
Время
Результат
Баллы
0 из 0
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2019, 21:53
Ответы с готовыми решениями:

Если целое число m делится нацело на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение вида
1 Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в...

В проекте как-то оказалось две формы с одинаковым именем, что делать?
В проекте как-то оказалось две формы с одинаковым именем, что делать?В программе они делают разные...

Если a>b, то вывести дату рождения, если a=b, то вывести ФИО, если a<b, то вывести количество пальцев на руке
Добрый день, подскажите пожалуйста, что не так, ломаю голову не один час, а ошибку найти не могу....

Вывести True если среднеарифметическое является ли целым числом, в противном случае вывести False.
Даны два числа x, y целого типа. Вывести True если среднеарифметическое является ли целым числом,...

6
109 / 68 / 46
Регистрация: 13.01.2019
Сообщений: 288
11.03.2019, 14:34 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Uses Crt;
const
N=1000000;
var
a: array [1..N] of integer;
k,l:byte;
s:string;
begin
writeln('kol-vo sesterney');
read(l);
writeln('vvedite kolvo reber');
for var i:=1 to l do begin
read(a[i]);
end;
for var i:=1 to l do begin
write(a[i],' ');
end;
k:=a[1];
for var i:=2 to l do begin
if k<>a[i] then 
s:='NO';
end;
writeln(s);
if s='NO' then begin
write(' ');
end
else writeln(s);
for var i:=1 to l do begin
if k=a[i] then 
s:='YES'
end;
end.
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Uses Crt;
const
N=1000000;
var
a: array [1..N] of integer;
k,l:byte;
s:string;
begin
writeln('kol-vo sesterney');
read(l);
writeln('vvedite kolvo reber');
for var i:=1 to l do begin
read(a[i]);
end;
for var i:=1 to l do begin
write(a[i],' ');
end;
k:=a[1];
for var i:=2 to l do begin
if k<>a[i] then 
s:='NO';
end;
writeln(s);
if s='NO' then begin
write(' ');
end
else writeln(s);
for var i:=1 to l do begin
if k=a[i] then 
s:='YES'
end;
writeln(s);
end.
Добавлено через 34 секунды
2-й код правильный
0
5080 / 2652 / 2349
Регистрация: 10.12.2014
Сообщений: 10,030
11.03.2019, 15:12 3
WildDen, а массив то зачем?
Тем более, что чисел не более 1000, а не миллиона!

Pascal
1
2
3
4
5
6
7
const Ansver : array [Boolean] of String[3] = ('NO', 'YES');
begin
  var n := ReadInteger;
  var(All,count):=(True,ReadInteger);
  loop n-1 do All := All and (count = ReadInteger);
  Ansver[All].Print;
end.
0
109 / 68 / 46
Регистрация: 13.01.2019
Сообщений: 288
11.03.2019, 20:06 4
Извините, ко мне переодически приходит тупняк
0
2324 / 1432 / 521
Регистрация: 07.04.2017
Сообщений: 4,739
11.03.2019, 22:24 5
JuriiMW, У вас, кстати, неправильно. В паскале or и and вычисляются по короткой схеме. Это значит, что когда All уже false - правую часть and вычислять не будет. Правильно (count = ReadInteger) and All;

Добавлено через 3 минуты
И если уже делать по-феншую...
Pascal
1
2
3
4
5
6
7
begin
  writeln(
    ReadSeqInteger(ReadInteger)
    .Aggregate((i1,i2)->i1=i2?i1:-1)
    =-1 ? 'NO':'YES'
  );
end.
0
0 / 0 / 0
Регистрация: 04.03.2018
Сообщений: 5
13.03.2019, 22:53  [ТС] 6
Короче у меня выходит какая-то ошибка компиляции, а точнее
Free Pascal Compiler version 3.0.0 [2015/11/26] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling 014394.pas
014394.pas(3,5) Error: Identifier not found "ReadSeqInteger"
014394.pas(3,20) Error: Identifier not found "ReadInteger"
014394.pas(4,17) Error: Identifier not found "i1"
014394.pas(4,19) Fatal: Syntax error, ")" expected but "," found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
0
5080 / 2652 / 2349
Регистрация: 10.12.2014
Сообщений: 10,030
14.03.2019, 04:29 7
staff1488, длиннее!
Вы в каком разделе создали тему?
0
14.03.2019, 04:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2019, 04:29
Помогаю со студенческими работами здесь

Если в наборе имеются числа, меньшие K, то вывести TRUE, в противном случае вывести FALSE
Pascal. Даны целые числа K, N и набор из N целых чисел. Если в наборе имеются числа, меньшие K, то...

Если в наборе все числа одинаковые, то вывести True; в противном случае вывести False
Мозгов не хватает додумать, парни помогите) #include &lt;stdio.h&gt; int main () { int N, i, a, R=0;...

Если сумма всех элементов массива чётная, нужно вывести количество нечётных
Дан целочисленный массив А из 20 целых случайных чисел от 10 до 90. Если сумма всех элементов...

Если существует буква, встречающаяся во всех словах, то вывести на экран сообщение «Да»
1. Дана последовательность символов, состоящая из слов. Если существует буква, встречающаяся во...

Делаю Модер панель , не могу вывести всех с одинаковым ip
Подскажите как вывести всех у кого одинаковый ip. или как к примеру проверить ник на наличие его...

Ввести 2 числа. Если максимальное из них чётное, то вывести его. В другом случае вывести произведение минимального
Ввести 2 числа. Если максимальное из них чётное, то вывести его. В другом случае вывести...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru