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

Некий индийский раджа пожелал узнать вес своего слона, но весов подходящего для этого размера не нашлось во всем городе. Тогда раджа пообещал, что даст сумевшему взвесить слона звание своего советника со всеми привилегиями. Один перевозчик придумал, как это сделать. Он ввел в свою лодку слона и отметил на борту осадку лодки. Затем слона вывели, а в лодку погрузили столько золота, чтобы осадка соответствовала таковой со слоном, массы слона и золота при этом были объявлены равными и составили 5214 кг. Почему массы слона и золота в лодке можно считать равным при равной ее осадке? Какой объем золота соответствует этой массе? Почему именно золото было выбрано для загрузки лодки во второй раз?

👇
Открыть все ответы
Ответ:
Ульяна1561
Ульяна1561
04.02.2020
Var - список переменных
переменные а,с присваивают тип integer, т.е. целые числа; b присваивает тип string, т.е строковый тип
begin - начало программы
readln - оператор ввода, окончание ln осуществляет переход на новую строку
str(a,b) - т.е. преобразовать данные числа в строку
переменная b так же присваивает тип строковый
Val(b,a,c) где: b- строка, а-результат, с-позиция с которой произошла ошибка преобразования или 0
writeln(а) - оператор вывода, окончание ln осуществляет переход на новую строку
end. - конец программы
4,8(35 оценок)
Ответ:
stesin761
stesin761
04.02.2020
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Кол-во элементов:');
  var a:=ArrRandomReal(n,-10,20); a.Println;
  Writeln('С округлением если |x|<1');
  for var i:=0 to n-1 do
    if abs(a[i])<1 then a[i]:=Round(a[i]);
  a.Println
end.

Тестовое решение:
Кол-во элементов: 10
-0.751956142835299 5.95022566427953 3.58861613254464 7.42331713783709 -4.75036238075717 -9.41228387384316 -0.700975591643235 3.85500546258642 -1.94321916994789 19.3021338336645
С округлением если |x|<1
-1 5.95022566427953 3.58861613254464 7.42331713783709 -4.75036238075717 -9.41228387384316 -1 3.85500546258642 -1.94321916994789 19.3021338336645
4,4(19 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ