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

Решить в паскаль: два угла заданы в градусах (g1, g2), минутах (m1, m2), секундах (s1, s2). найти разность между вторым и первым в градусах (g3), минутах (m3), секундах (s3). входные данные: g1, m1, s1, g2, m2, s2

👇
Открыть все ответы
Ответ:
coolpetrov
coolpetrov
14.03.2021
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

type
  Ex211a=class
 
  public
 
  constructor(fio,phone:string);
  begin
    var n:=Max(fio.Length,phone.Length);
    Writeln((n+2)*'*');
    Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
    Writeln((n+2)*'*')
  end;
end;

type
  Ex211b=class
 
  public
 
  constructor;
  begin
    var n:=ReadInteger('Введите целое число:');
    Writeln('Результат равен ',n+10)
  end;
end;

begin
  new Ex211a('Иван Иванов','7-841-2666666');
  new Ex211b
end.

Пример

*Иван Иванов  *
*7-841-2666666*

Введите целое число: 18
Результат равен 28
4,5(27 оценок)
Ответ:
KarinaFelton
KarinaFelton
14.03.2021

Объяснение:

аьтаосдсьчт636846т69989=7=7=49497572644%477 до т6лрсооо555454647-꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡(´∩。• ᵕ •。∩`) (*^3^)/~♡♡(> ਊ <)♡( ˘ ³˘)♥(〃゚3゚〃)(◕દ◕)( ˘ ³˘)♥(●’3)♡(ε`●)(*^3^)/~♡(●’3)♡(ε`●)(*^3^)/~♡(●’3)♡(ε`●)(*^3^)/~♡(●’3)♡(ε`●)(●’3)♡(ε`●)(/^-^(^ ^*)/(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)надеюсь
4,7(47 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ