Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
1 / 1 / 0
Регистрация: 12.04.2010
Сообщений: 39
1

Даны три дейтвительных числа a,b и c. Найти минимальное из этих чисел и вычислить сумму первого числа и найденного минимального числа.

21.04.2010, 15:36. Просмотров 1867. Ответов 1
Метки нет (Все метки)


Напишите программку (с коментариями если не трудно=) ))

Даны три дейтвительных числа a,b и c. Найти минимальное из этих чисел и вычислить сумму первого числа и найденного минимального числа.


Минимальные и максимальные 3-х чисел.
Введите через пробел значение 3-х чисел a,b и c: 5 -6 3
Минимум равен -6 Сумма равна -1
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2010, 15:36
Ответы с готовыми решениями:

Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше
Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма...

Даны три числа a, b, c. Если хотя бы одно из них равно нулю с погрешностью , то вычислить сумму этих чисел, в противном
Помогите доделать программу. Даны три числа a, b, c. Если хотя бы одно из них равно нулю с...

Найти последние три числа кратные четырем в диапазоне от 1 до N. Вычислить сумму этих чисел
Найти последние три числа кратные четырем в диапазоне от 1 до N. Вычислить сумму этих чисел.

Даны три произвольных числа, проверить, является ли хотя бы одно из этих чисел квадратом целого числа
Даны три произвольных числа A,B,C. Если хотя бы одно из этих чисел является квадратом целого числа,...

1
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
21.04.2010, 15:55 2
Лучший ответ Сообщение было отмечено kasimov92 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var x,y,z,min:real;
begin
ClrScr;
Readln(x,y,z);
min:=x;
if (y<x) and (y<z) then
 min:=y
else
 if (z<x) and (z<y) then
  min:=z;
Writeln('Min ',min);
Writeln('S=',x+min);
Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2010, 15:55

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Даны три целых числа A,B и С. Если сумма A и B больше квадрата числа C, то вычислить сумму A,B и C
program xxx; var a,b,d,c:real; begin writeln('Введи число '); readln(a); writeln('Введи число...

Даны три действительных числа. Вычислить корень квадратный из четных чисел и возвести в 3 степень нечетные числа
Даны три действительных числа. Вычислить корень квадратный из четных чисел и возвести в 3 степень...

Даны три действительных числа. Вычислить корень квадратный из четных чисел и возвести в 3 степень нечетные числа
Даны три действительных числа. Вычислить корень квадратный из четных чисел и возвести в 3 степень...

Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из
Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.