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

Pascal ! ! дано трехзначное число. расположить цифры этого трехзначного числа в порядке убывания. на языке pascal.

👇
Ответ:
lidok575
lidok575
25.09.2020

program raf105;

var abc,a,b,c:integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

c:= abc mod 10;

b:= (abc-((a*100)-c)) div 10;

if (a>b) and (a>c)

 then begin

   a:= a*100;

   if b>c

     then b:=b*10

     else c:=c*10;

  end;

if (b>a) and (b>c)

 then begin

   b:= b*100;

   if a>c

     then a:=a*10

     else c:=c*10;

  end;

if (c>b) and (c>a)

 then begin

   c:= c*100;

   if b>a

     then b:=b*10

     else a:=a*10;

  end;

abc:= a+b+c;

writeln('Компьютер переставил цифры числа в порядке убывания: ',abc);

end.

Язык PascalABC

4,6(36 оценок)
Открыть все ответы
Ответ:
epstalmakov
epstalmakov
25.09.2020
В прямоугольном треугольнике должна выполняться теорема Пифагора. Найдем самую длинную строну и проверим, является ли квадрат ее длины суммой квадратов длин двух других сторон. Для того, чтобы избежать ошибок округления примем, что все длины - натуральные числа.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите через пробел или Enter стороны:');
  if a>c then Swap(a,c);
  if b>c then Swap(b,c);
  if c*c=a*a+b*b then Writeln('Треугольник прямоугольный')
  else Writeln('Треугольник не прямоугольный')
end.

Пример
Введите через пробел или Enter стороны: 6 8 10
Треугольник прямоугольный
4,6(85 оценок)
Ответ:
dja4enkodanil16
dja4enkodanil16
25.09.2020

ответ: 1 знаю 2 тоже а 3 хззз :(

ответ:1.SketchUp состоит из трех основных частей это:

Основные инструменты

Инструменты рисования

Инструменты модификаций

2.Прямо угольник-инструмент рисования прямоугольников по двум точкам.

Линия-инструмент для рисования начальной схемы объекта.

Окружность-инструмент для рисования правильных окружностей.

Дуга-инструмент рисования дуг по трем параметрам.

Многоугольник- инструмент для встрайвания многоугольников в объекте.

Ручная работа-инструмент рисования объекта от руки.

3. Хз

Объяснение:

Удачи вам :)


Вопросы для размышления 1. Как можно создавать модели в программе SketchUp? 2. Каковы функции инстру
4,7(22 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ