С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/480: Рейтинг темы: голосов - 480, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 14.02.2011
Сообщений: 19
1

Даны 3 числа. Найдите наибольшее из них!

19.02.2011, 18:33. Показов 94410. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Те, кто просто не может сам справиться)

Добавлено через 52 секунды
1. Даны 3 числа. Найдите наибольшее из них!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.02.2011, 18:33
Ответы с готовыми решениями:

Даны числа x, y, z, наименьшее из них увеличить в 2 раза, наибольшее уменьшить в 2 раза
надо решить задачу в pascale через if else then. Без массивов Задача: Даны числа x, y, z,...

Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а) наибольшее значение б) наименьшее значение
Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а)...

Даны три целых числа. Найдите наибольшее из них (программа должна вывести ровно одно целое число)
Даны три целых числа. Найдите наибольшее из них (программа должна вывести ровно одно целое число)....

Даны 3 числа.Вывести наибольшее из них
Помогите со следующей задачей: Написать программу к следующей задаче: "Даны 3 числа.Вывести...

8
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
19.02.2011, 18:41 2
Pascal
1
2
3
4
5
6
7
8
var
 a, b, c: integer;
begin
 read(a, b, c);
  if (a>b) and (a>c) then writeln(a, ' найбольшее');
  if (b>a) and (b>c) then writeln(b, ' найбольшее');
  if (c>a) and (c>b) then writeln(c, ' найбольшее'); 
end.
1
0 / 0 / 0
Регистрация: 14.02.2011
Сообщений: 19
19.02.2011, 18:51  [ТС] 3
Спасибо вам... все было так просто, а я-то голову ломала =)
0
Ev[G]eN
19.02.2011, 18:53
  #4

Не по теме:

а все гениальное - просто :)

1
0 / 0 / 0
Регистрация: 14.02.2011
Сообщений: 19
19.02.2011, 19:05  [ТС] 5
а вот тут надо написать программу вычисления зн переменной если a>b то a:=b-2 иначе b:=b-2
Как это сделать? Вот моя программа, но комп пишет, что не правильно!
program pr1;
var a, b: real;
write('a=');
readln(a);
write('b=');
readln(b);
if a>b then a:=b-2 else b:=b-2;
writeln('a=',a,'b=',b);
readln;
end.
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
19.02.2011, 19:09 6
var a, b: real;
var a, b: real;
begin
.....
1
0 / 0 / 0
Регистрация: 14.02.2011
Сообщений: 19
19.02.2011, 19:10  [ТС] 7
Цитата Сообщение от Ev[G]eN Посмотреть сообщение

Не по теме:

а все гениальное - просто :)

Ну да, ну да))))

Добавлено через 39 секунд
Ох, спасибо, сглупила.
0
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
19.02.2011, 19:10 8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
 a, b: integer;
begin
 read(a, b);
  if a>b then
   begin
    a:=b-2;
    write(a);
   end
  else
   begin
    b:=b-2;
    write(b);
   end;
end.
1
SuPeR XaKer
19.02.2011, 19:15     Даны 3 числа. Найдите наибольшее из них!
  #9

Не по теме:

у дамы в два раза лучше получилось код написать...

1
19.02.2011, 19:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2011, 19:15
Помогаю со студенческими работами здесь

Даны 3 числа. Найти наибольшее из них (С++)
помогите пожалуйста решить задачи: 1) Даны 3 числа. Найти наибольшее из них. 2) Даны 2 числа....

Даны числа A, B, C: наибольшее из них утроить и вывести все числа
Даны числа A,B,C. Наибольшее из них утроить и вывести все числа. Си

Даны три числа. Найдите среднее из них
Ребят я только начинаю изучать язык программирование Basic и начал с Small Basic и я хочу узнать...

Даны 4 числа. Найти наибольшее и наименьшее среди них
Даны 4 числа x,y,z,q.Найти наибольшее и наименьшее среди них , Среди двух оставшихся найти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
Как создать игру "Танчики" на Unity3d и C#
InfoMaster 14.01.2025
Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram
_Ivana 14.01.2025
Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin
InfoMaster 14.01.2025
Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
Как создать приложение магазина для iOS/iPhone на Swift
InfoMaster 14.01.2025
Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru