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

Паскаль На вход программе даётся n чисел,программа выдаёт среднее арифметическое чисел,которые делятся на 3 без остатка и заканчиваются на 8

Показать ответ
Ответ:
maksy76750
maksy76750
21.10.2022 08:46
a = []
with open('input.txt', 'r') as f:
    n = int(f.readline())
    for i in range(n):
       inp = f.readline()
       x, y = list(map(int, inp.split()))
       a.append((x, y))

k = 0
for i in range(n - 1):
    for j in range(i + 1, n):
        if (a[i][0] == a[j][0]) or (a[i][0] == a[j][1]) or (a[i][1] == a[j][0]) or (a[i][1] ==                                                       a[j][1]): k += 1
with open('output.txt, w') as f:
  f.write(k)
https://pastebin.com/sHe7sFyc - тут все отформатировано красиво(просто на знаниях неудобно вставлять код)
0,0(0 оценок)
Ответ:
averinael2013
averinael2013
04.12.2021 08:51
Program n_5;
var
   a, b, c: real;
procedure n_1;
begin
 if ((a<b) and (a>c)) or ((a<c) and (a>b)) then
  write (a)
 else
  if ((b<a) and (b>c)) or ((b<c) and (b>a)) then
   write (b)
  else
   if ((c<a) and (c<b)) or ((c<b) and (c>a)) then
    write (c);
end;
begin
 writeln ('Введите три трёхзначных числа');
 readln (a);
 readln (b);
 readln (c);
 if ((a >= 100) and (a <= 999) and (a <> b) and (a <> c)) and ((b >= 100) and (b <= 999) and (b <> a) and (b <> c)) and ((c >= 100) and (c <= 999) and (c <> a) and (c <> b)) then n_1
 else
  write ('ERROR');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота