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

Батьки дозволяють Степану грати за комп'ютером, якщо він отримав у цей день п'ятірку (у школі, в якій навчається Степан,
п'ятибальна система оцінювання), але не отримав трійок (Степан
двійок та одиниць не отримує). Напишіть програму, яка визначає
чи зможе сьогодні Степан пограти за комп'ютером?
Формат вхідних даних: У першому рядку міститься одне
натуральне число N (1 ≤ N ≤ 100) – кількість оцінок, які отримав
Степан. У другому рядку записані N чисел – оцінки, які отримав
Степан, кожна з яких 3, 4 або 5.
Формат вихідних даних: Виведіть "YES" – якщо Степан
зможе пограти за комп'ютером, або "NO" в іншому випадку
РОЗВЯЖІТЬ НА ПАЙТОНІ

Показать ответ
Ответ:
krubtsova79
krubtsova79
24.04.2023 03:03
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var n:=ReadInteger('n=');
  var m:=ReadInteger('m=');
  var d1,d2,d3,d4,d5,d6:integer;
  for var i:=n to m do begin
    d6:=i div 100000;
    d5:=(i mod 100000) div 10000;
    d4:=(i mod 10000) div 1000;
    d3:=(i mod 1000) div 100;
    d2:=(i mod 100) div 10;
    d1:=i mod 10;
    if (d1+d2+d3)=(d4+d5+d6) then Write(d6,d5,d4,d3,d2,d1,' ')
    end
end.

Тестовое решение:
n= 163702
m= 164701
163703 163712 163721 163730 163802 163811 163820 163901 163910 164029 164038 164047 164056 164065 164074 164083 164092 164119 164128 164137 164146 164155 164164 164173 164182 164191 164209 164218 164227 164236 164245 164254 164263 164272 164281 164290 164308 164317 164326 164335 164344 164353 164362 164371 164380 164407 164416 164425 164434 164443 164452 164461 164470 164506 164515 164524 164533 164542 164551 164560 164605 164614 164623 164632 164641 164650
0,0(0 оценок)
Ответ:
Intagul
Intagul
26.11.2021 13:57

Английский:

“In addition to word processors designed for

creating and processing words on a computer, there are a number of

programs that automate human work

with text information ". The result obtained using

translate the same program into Russian. This text

the original phrase and the final result. Give your comments

tari.

Казахский:

«Арналған мәтіндік процессорлардан басқа

сөздерді компьютерде құру және өңдеу, олардың саны бар

адам жұмысын автоматтандыратын бағдарламалар

мәтіндік ақпаратпен ». Пайдалану арқылы алынған нәтиже

сол бағдарламаны орыс тіліне аударыңыз. Бұл мәтін

түпнұсқа фраза және соңғы нәтиже. Түсініктемелеріңізді беріңіз

тарих.

Объяснение:

Выбери язык который больше нравится

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