ma4newarita
20.01.2023 07:06

заполните пропуски в программе решения задачи cc14 из встроенного задачника так, чтобы она работала верно.


заполните пропуски в программе решения задачи cc14 из встроенного задачника так, чтобы она работала

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
куликов44443456
28.02.2020 18:01
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a<b then Writeln('Первое число меньше второго')
  else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.
0,0(0 оценок)
Ответ:
ниро4
27.01.2020 10:50
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var st:='balloon duster tooth loot cooperation'; // не вводим
  // var st:=ReadlnString; // если хочется вводить
  var s:=st.ToWords; // массив из слов s[i]
  s.Println; // показать исходный массив слов
  // собственно решение
  var i:=s.Select(w->w.Length).ToArray.IndexMin; // индекс короткого слова
  s[i]:=s[i].Replace('oo','');
  s.Println; // результат
end.

Результат
balloon duster tooth loot cooperation
balloon duster tooth lt cooperation
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота