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

Надо сделать программу в паскале и написать последовательность в тетради.

👇
Открыть все ответы
Ответ:
DellXT
DellXT
15.08.2021

var n, x, L, F, k, kint, max:integer;

begin

 kint := 0;

 max := 0;

 for n := 2095 to 19402 do begin

   x := n;

   k := 0;

   while x > 0 do begin

     k := k + 1;

     if k = 1 then

       L := x mod 10;

     F := x mod 10;

     x := x div 10;

   end;

   if (F > L)and(n mod 10 = 1)and((n div 10)mod 10 = 2)then begin

     kint := kint + 1;

     if n > max then

       max := n;

   end;

 end;

 writeln(kint,' ',max);

end.

Объяснение:

F - первая цифра числа

L - последняя(Слева направо)

4,4(72 оценок)
Ответ:
negatiff95
negatiff95
15.08.2021

код на Python:

import math

x1 = int(input("Введи координату x 1 точки "))

y1 = int(input("Введи координату y 1 точки "))

x2 = int(input("Введи координату x 2 точки "))

y2 = int(input("Введи координату y 2 точки "))

x3 = int(input("Введи координату x 3 точки "))

y3 = int(input("Введи координату y 3 точки "))

a = math.sqrt( pow(x2 - x1, 2) + pow(y2 - y1, 2) )

b = math.sqrt( pow(x3 - x2, 2) + pow(y3 - y2, 2) )

c = math.sqrt( pow(x3 - x1, 2) + pow(y3 - y1, 2) )

p = (a + b + c) / 2

S = math.sqrt( p*(p - a)*(p - b)*(p - c) )

print(S)

Объяснение:

x1,x2,x3,y1,y2,y3 - это координаты точек

a,b,c - вычисление длин между координатами

S - вычисление площади по формуле Герона

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