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

Дано натуральное четырехзначое число. Найти сумму его последних двух цифр, результат вывести на экран

Показать ответ
Ответ:
Svetbor04
Svetbor04
16.11.2021 15:56
Информация — это знания, получаемые вами в школе, это сведения, которые вы черпаете из книг, телепередач, это новости, которые вы слышите по радио или от людей, с которыми общаетесь.
В ходе повседневной жизни каждый из нас получает (воспринимает) самую разнообразную информацию.
Первичную информацию
 об окружающем мире — о температуре, цвете, запахе, вкусовых качествах, физических свойствах предметов — люди и другие живые существа получают через органы зрения, слуха, вкуса, осязания, обоняния, через вестибулярный аппарат и нервную систему.
Но можем ли мы полностью доверять своим органам чувств? Больше всего информации мы получаем с зрения: глазами мы воспринимаем буквы, цифры, рисунки, различаем цвет, форму, размеры и расположение предметов. Взгляните на рисунки. Что вы можете сказать о размере и форме представленных на них фигур? 
0,0(0 оценок)
Ответ:
Yoongiimfromgot7
Yoongiimfromgot7
30.06.2020 21:14
Type
  Point=record
    x,y:real
  end;
 
function Distance2(a,b:Point):real;
 { возвращает квадрат расстояния между точками }
begin
  Distance2:=sqr(b.x-a.x)+sqr(b.y-a.y)
end;

function Max(p,q:real):real;
 { возвращает максимальное из p,q }
begin
  if p>q then Max:=p else Max:=q
end;

procedure Vvod(var a:Point;n:integer);
 { процедура с изменяемым параметром a }
begin
  Write('Введите координаты точки ',n,': ');
  Readln(a.x,a.y)
end;

var
  a:array[1..3] of Point;
  d1,d2,d3:real;
  i:integer;

begin
  for i:=1 to 3 do Vvod(a[i],i);
  d1:=Distance2(a[1],a[2]);
  d2:=Distance2(a[1],a[3]);
  d3:=Distance2(a[2],a[3]);
  if d1>d2 then
    if d1>d3 then Writeln('Максимальное расстояние 1-2')
    else
      if d1=d3 then Writeln('Максимальное расстояние 1-2 и 2-3')
      else Writeln('Максимальное расстояние 2-3')
  else
    if d1=d2 then
      if d1>d3 then Writeln('Максимальное расстояние 1-2 и 1-3')
      else
        if d1=d3 then Writeln('Расстояния между всеми точками одинаковы')
        else Writeln('Максимальное расстояние 2-3')
    else
      if d3>d2 then Writeln('Максимальное расстояние 2-3')
      else
        if d3=d2 then Writeln('Максимальное расстояние 1-3 и 2-3')
        else Writeln('Максимальное расстояние 1-3');
end.

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