М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
valuchska
valuchska
01.04.2022 20:38 •  Информатика

1.дан массив целых чисел, состоящий из 30 элементов. заполнить его с клавиатуры.найти: -сумму отрицательных элементов; -найти количество тех элементов, значения которых положительны и не превосходят заданного числа а 2.найти номер последней пары соседних элементов с разными знаками.

👇
Ответ:
Akhmed2387
Akhmed2387
01.04.2022
Var
  arr : array [1..30] of integer;
  sum, count, i, a : integer;
begin
  read (a);
  for i := 1 to 30 do read (arr[i]);
  count := 0; sum := 0;
  for i := 1 to 30 do
  begin
    if arr[i] < 0 then sum := sum + arr[i]
    else if (arr[i] > 0) and (arr[i] <= a) then count := count + 1;
  end;
  writeln (sum, ' ', count);
end.

var
  arr : array [1..30] of integer;
  i : integer;
begin
  for i := 1 to 30 do read (arr[i]);
  for i := 30 downto 2 do
    if arr[i] * arr[i - 1] < 0 then // проверка знака
    begin
      writeln (i - 1); 
      halt; // Остановка программы
    end;
  writeln ('-1'); // Таких нет
end.
4,6(86 оценок)
Открыть все ответы
Ответ:
срочно119
срочно119
01.04.2022
Напишите  программу,  которая  выбирает  максимальное  и  минимальное  из  пяти  введённых  чисел.3.напишите  программу,  которая  определяет,  верно  ли,  что  введённое  число  –  трёхзначное.4.напишите  программу,  которая  вводит  номер  месяца  и  выводит  название  времени  года.оператор  выбора  использовать  не  разрешается.  при  вводе  неверного  номера  месяца  долж‐но  быть  выведено  сообщение  об  ошибке.5.решите  предыдущую    с    оператора  выбора.6.напишите  программу,  которая  вводит  с  клавиатуры  номер  месяца  и  определяет,  сколько  дней  в  этом  месяце.  при  вводе  неверного  номера  месяца  должно  быть  выведено  сообще‐ние  об  ошибке.7.напишите  программу,  которая  вводит  с  клавиатуры  номер  месяца  и  день,  и  определяет,сколько  дней  осталось  до  нового  года.  при  вводе  неверных  данных  должно  быть  выведено  сообщение  об  ошибке.8.напишите  программу,  которая  вводит  возраст  человека  (целое  число,  не  превышающее  120)и  выводит  этот  возраст  со  словом  «год»,«года»  или  «лет».  например,«21  год»,«22  года»,«25  лет».9.напишите  программу,  которая  вводит  целое  число,  не  превышающее  100,  и  выводит  его  прописью,  например,21→«двадцать  оди
4,5(77 оценок)
Ответ:
almosya2005
almosya2005
01.04.2022

import turtle

from math import tan, sqrt, pi

def prepare(x, y, color):

   turtle.penup()

   turtle.goto(x, y)

   turtle.pendown()

   turtle.color(color)

   turtle.begin_fill()

def draw_polygon(num_sides, side_length):

   angle = 360.0 / num_sides

   for i in range(num_sides):

       turtle.forward(side_length)

       turtle.right(angle)

   turtle.end_fill()

def calc_s(num_sides, side_length):

   return num_sides * side_length ** 2 / (4 * tan(pi/num_sides))

def calc_side(square):

   return sqrt(4 * square * tan(pi/num_sides) / num_sides)

turtle.hideturtle()

turtle.speed(10)

colors = ['red', 'green', 'blue', 'cyan', 'magenta', 'black', 'yellow', 'pink', 'brown']

xcoords = [0, 150, -150, 150, -150, 270, -270, 270, -270]

ycoords = [0, 150, -150, -150, 150, 270, -270, -270, 270]

squares = []

numsides = []

for i in range(9):

   num_sides = i + 3

   square = round(calc_s(num_sides, 100), 2)

   side_length = round(calc_side(10000), 3)

   squares.append(square)

   numsides.append(num_sides)

   print("Углов:", num_sides, "была площадь:", square, "стала длина грани:", side_length,

         "изменение в", round(side_length/100, 2), "раз")

   prepare(xcoords[i], ycoords[i], colors[i])

   draw_polygon(num_sides, side_length)

turtle.exitonclick()

print("Список количество углов:", numsides, end="")

print("Список площади:", squares)

Объяснение:

4,4(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ