code-n'-help - Форум программистов и сисадминов Киберфорум

code-n'-help

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Для последовательности целых чисел a,b,c. Найдите разность между максимальным и минимальным значениями. / Pascal ABC

Запись от code-n'-help размещена 16.02.2014 в 00:09

Показов 2203 Комментарии 1

Сообщение от code-n'-help

секундочку сейчас проверю

Добавлено через 3 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a,b,c:integer; etalonmax:integer; etalonmin:integer;
begin
read(a,b,c);
if (a>b) and (a>c)
then etalonmax:=a;
if (a<b) and (a<c)
then etalonmin:=a;
if (b>a) and (b>c)
then etalonmax:=b;
if (b<a) and (b<c)
then etalonmin:=b;
if (c>a) and (c>b)
then etalonmax:=c;
if (c<a) and (c<b)
then etalonmin:=c;

...

code-n'-help

Форумчанин Паскаля

Вычислить площадь треугольника по заданной высоте и длине основания

Запись от code-n'-help размещена 15.02.2014 в 22:20

Показов 2208 Комментарии 3

Сообщение от code-n'-help

Вот попробуйте использовать подбор по формуле Герона. Идея такая но вам нужна граница стороны вот строна не больше 250

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a,b,c,p:word; i,j,K:word;
for i:=1 to 250 do 
 for j:=1 to 250 do
   for k:=1 to 250 do
   begin
   a:=i;
   b:=j;
   c:=k;
   P:=(a+b+c)/2
  if S*S=p*(p-a)*(p-b)*(p-c)
  then write(a,b,c);
end;

Добавлено через 2 минуты

Но эта программа

...

code-n'-help

Форумчанин Паскаля

code-n'-help code-n'-help вне форума

Регистрация 08.11.2013
Адрес Kiev
Сообщений 399
Записей в блоге 2

Поиск в блоге code-n'-help

Содержит текст: Искать только в заголовках

Расширенный поиск
Категории блога
Локальные категории
- Без категории
Последние записи
- Для последовательности целых чисел a,b,c. Найдите разность между максимальным и минимальным значениями. / Pascal ABC
- Вычислить площадь треугольника по заданной высоте и длине основания
Облако меток

.net .net aspire 4d acid ai ai-agent aiohttp algorithms android angular anthropic apache api gateway architecture arduino asm asp.net asp.net core asp.net mvc async async/await asyncio audio auth aws azure azure service bus backpressure batch big data blazor blender builder c c# c++ c++20 c++23 c++26 c++ qt cache canvas cap cassandra chain of responsibility chat chatbot chromeos ci/cd circuit breaker claude clean architecture clojure cloud com-порт command concurrency confluent context coroutine cors cpu cqrs crud cryptography csrf css dapper db ddd ddos delphi dev-c++ devops di docker docker compose dockerfile docker swarm e2e e2ee ef core elasticsearch electronics elk encryption entity framework etl event-driven event loop event sourcing eventual consistency express.js factory factory method fastapi gamedev gcc gif gil git github actions gitlab ci glsl go gpt gpu graceful degradation grafana graphql grpc hash helm heroku hexagonal highload html http identity in-memory in-memory db interview ios iot istio iterator jaeger java javascript jdk jenkins jpa json jvm jwt kafka keycloak kotlin kubernetes langchain libuv linq linux lisp llm logging machine learning masstransit math maven mcp mediator mediatr microcontroller microservices middleware minecraft ml.net mobile mobiledev mock mongodb multithreading mvvm nats network new year next.js nginx node.js nosql ntp oauth oauth2 observer onnx oop openai openai api openapi opengl openid openmp opentelemetry opentk oracle orm outbox parallel pascal pascalabc.net patterns performance php poetry polly postgresql powershell prisma programming prometheus pub/sub purgecss pydantic pytest python pytorch q# qaoa qiskit qt quantum quantum computing rabbitmq race condition rag range rate limiting rbac react reactive redis refresh token repository rest api retry rust s3 saga security serialport serilog serverless service discovery service mesh sfinae signalr simd socket.io solid spa span specification spring spring boot sql sqlalchemy sql injection sql server sqs sse ssl sso state machine stl stm32 strangler strategy streaming svelte swagger swift swiftui tailwindcss task tcp telegram tensorflow threadpool three.js tls typescript unit-test unit of work unity vb vb.net vector visual studio vite vs code vue wasm web web api webassembly webflux webgl webrtc websocket windows winforms wpf xss zero-trust ии математика нейросеть ооп си

Поиск по метке

Новые блоги и статьи Все статьи Все блоги /
Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .

Наверх

Сообщение форума

Отменить изменения