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

Uses Robot; begin Task('cc5');

👇
Открыть все ответы
Ответ:
Может быть, так:
uses graphABC;
Begin
setfontcolor(clRed);
writeln('Белеет парус одинокой');
setfontcolor(clBlue);
writeln('В тумане моря голубом!..');
setfontcolor(clDarkOrchid);
writeln('Что ищет он в стране далекой?');
setfontcolor(clDeepSkyBlue);
writeln('Что кинул он в краю родном?..');
setfontcolor(clDeepPink);
writeln('Играют волны - ветер свищет,');
setfontcolor(clMagenta);
writeln('И мачта гнётся и скрыпит...');
setfontcolor(clDarkGreen);
writeln('Увы! он счастия не ищет');
setfontcolor(clLime);
writeln('И не от счастия бежит!');
setfontcolor(clBrown);
writeln('Под ним струя светлей лазури,');
setfontcolor(clIndigo);
writeln('Над ним луч солнца золотой...')
End.
4,8(78 оценок)
Ответ:
zajigalka2001
zajigalka2001
02.12.2020
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

type
  tCar=record
    brand:string;
    cost:real;
  end;
 
begin
  var a:=new tCar[4];
  for var i:=0 to 3 do begin
    var b:=ReadlnString(i+1+') введите марку и стоимость в рублях:').ToWords;
    a[i].brand:=b[0]; a[i].cost:=b[1].ToReal;
    end;
 var m:=a.Select(t->t.cost).Average;
 var p:=a.Select(t->Abs(t.cost-m)).ToArray.IndexMin;
 Writeln('Выбран автомобиль марки ',a[p].brand,' стоимостью ',a[p].cost)
end.

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