В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
01223
01223
20.01.2022 19:20 •  Информатика

Хулиганы первый и второй не любят доску почёта своей школы. поэтому они решили наглым образом украсть оттуда школьную стенгазету, сделанную отличниками, и порвать на части. первый хулиган брал кусочек газеты и рвал его на 4 части, а второй хулиган – на 7. однако скоро дежурные нашли n кусочков этой газеты. им стало интересно, все ли кусочки они нашли. им.
дежурные так старались, что упустить из виду они могли не более 2 кусочков.
входные данные
натуральное число n < 1018.
выходные данные
выведите “yes”, если все кусочки найдены, и “no” – в противном случае.

#include

using namespace std;

int main()
{
int n, b = 3, x;
cin > > n;
x = n - 1;
if (x % 3 == 0)
cout < < "yes" < < endl;
else
cout < < "no" < < endl;
return 0;
}
в душе не чаю, почему валится на 6 контесте. (:
друзья саша и паша живут на одной улице. как то раз они договорились порешать открытой московской олимпиады у паши, который живет в доме, находящимся на расстоянии a от начала улицы. саша некоторое время назад вышел к своему другу и на расстоянии b от начала улицы он оглянулся по сторонам и понял, что дом паши где-то рядом. теперь его скорость равна v.
определите, сколько еще времени потребуется саше, чтобы дойти до дома своего друга.
входные данные
неотрицательные целые числа a, b, v(v≠0).
выходные данные
выведите ответ на с точностью с 5 знаками после запятой
а тут чет туплю

Показать ответ
Ответ:
uzinalizs
uzinalizs
06.02.2022 21:04
Program p1;
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
 begin
 writeln('Введите кол-во правильных ответов, данных участником ',i); 
 readln(a);
 if (a > max) then max:=a;
 if a=0 then fl:=1;
 end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' ');
end.

Пример:
Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал
0,0(0 оценок)
Ответ:
idrisovbulat
idrisovbulat
06.02.2022 21:04
Все элементы будут равны единице.
Сначала они будут заполнены значением, большим своего индекса на 1, а потом каждому элементу, начиная со второго (который А[1]) будет присвоено значение предыдущего элемента и 1 распространится везде.

Для проверки была написана программа с отладочной выдачей.

var
  a:array[0..10] of integer;
  i:integer;
begin
  for i:=0 to 10 do begin a[i]:=i+1; Write(a[i],' ') end;
  Writeln;
  Write(a[0],' ');
  for i:=1 to 10 do begin a[i]:=a[i-1]; Write(a[i],' ') end
end.

Результаты

1 2 3 4 5 6 7 8 9 10 11
1 1 1 1 1 1 1 1 1 1 1

ответ: 3)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота