Другие языки программирования и технологии
Напишите программу которая будет считать значения целых переменных
a, b, c и распечатывать их в порядке возрастает. значения a, b спо модулю не превосходят 30000
Program p23;
var
a,b,c:integer;
min,max,sr:integer;
procedure vozr();
begin
if (a>b)and(b>c)then
begin
sr:=b;
end;
if (b>a)and(a>c)then
begin
sr:=a;
end;
if (a>c)and(c>b)then
begin
sr:=c;
end;
if (c>b)and(b>a)then
begin
sr:=b;
end;
if (a>c)and(c>b)then
begin
sr:=c;
end;
if a>b then
begin
if a>c then
begin
max:=a;
end;
end;
if b>a then
begin
if b>c then
begin
max:=b;
end;
end;
if c>a then
begin
if c>b then
begin
max:=c;
end;
end;
if c<a then
begin
if c<b then
begin
min:=c;
end;
end;
if a<c then
begin
if a<b then
begin
min:=a;
end;
end;
if b<a then
begin
if b<c then
begin
min:=b;
end;
end;
writeln(max, ' ' ,sr, ' ' ,min);
end;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите трете число');
readln(c);
vozr();
end.
var
a,b,c:integer;
min,max,sr:integer;
procedure vozr();
begin
if (a>b)and(b>c)then
begin
sr:=b;
end;
if (b>a)and(a>c)then
begin
sr:=a;
end;
if (a>c)and(c>b)then
begin
sr:=c;
end;
if (c>b)and(b>a)then
begin
sr:=b;
end;
if (a>c)and(c>b)then
begin
sr:=c;
end;
if a>b then
begin
if a>c then
begin
max:=a;
end;
end;
if b>a then
begin
if b>c then
begin
max:=b;
end;
end;
if c>a then
begin
if c>b then
begin
max:=c;
end;
end;
if c<a then
begin
if c<b then
begin
min:=c;
end;
end;
if a<c then
begin
if a<b then
begin
min:=a;
end;
end;
if b<a then
begin
if b<c then
begin
min:=b;
end;
end;
writeln(max, ' ' ,sr, ' ' ,min);
end;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите трете число');
readln(c);
vozr();
end.
примени условный оператор
Валерий Потехин
Не вздумай платить "Зотикову", https://otvet.mail.ru/profile/id14126244/ - ВОТ ЕГО ПОЧТА: ggzot@mail.ru или 19.40@mail.ru который тебе ответил, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! Сидит на даче старпёр С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга кинул на 320 руб – денег не вернул!!! У этого мошенника Зотикова – есть вторая страница http://otvet.mail.ru/profile/id85810161/answers/all/ - он с двух кидает одновременно!!! Имя сменил только.
Влад Мамаев
Мдя... Офигенный лучший ответ =))
На питоне примерно так в итоге имеешь отсортированный список. Как выводить непонятно из задания
a = int(raw_input("Enter a value: "))
b = int(raw_input("Enter b value: "))
c = int(raw_input("Enter c value: "))
print "result:"
list = [a, b, c]
list.sort()
print str(list)
a = int(raw_input("Enter a value: "))
b = int(raw_input("Enter b value: "))
c = int(raw_input("Enter c value: "))
print "result:"
list = [a, b, c]
list.sort()
print str(list)
int a1 = a % a;
int b1 = b % b;
int c1 = c % c;
if(a1 > b1 && a1 >c1){
System.out.println(a1);
if(b1 > c1 ){
System.out.println(b1);
} else {
System.out.println(c1);
}
} else {
if(b1 > a1 && b1 > c1){
System.out.println(b1);
if(a1 > c1){
System.out.println(a1);
} else {
System.out.println(c1);
}
}
} else {
if(c1 > a1 && c1 > b1) {
System.out.println(c1);
if (a1 > b1){
System.out.println(a1);
} else {
System.out.println(b1);
}
}
}
Типа такого? не очень понял вопрос
int b1 = b % b;
int c1 = c % c;
if(a1 > b1 && a1 >c1){
System.out.println(a1);
if(b1 > c1 ){
System.out.println(b1);
} else {
System.out.println(c1);
}
} else {
if(b1 > a1 && b1 > c1){
System.out.println(b1);
if(a1 > c1){
System.out.println(a1);
} else {
System.out.println(c1);
}
}
} else {
if(c1 > a1 && c1 > b1) {
System.out.println(c1);
if (a1 > b1){
System.out.println(a1);
} else {
System.out.println(b1);
}
}
}
Типа такого? не очень понял вопрос
Похожие вопросы
- 1. Написать программу, которая заполняет массив целых чисел размеров 20 элементов значениями роста учащихся (случайные ч
- Напишите программу, которая находит в массиве количество элементов, равных заданному значению X .
- Напишите программу которая рассчитает значение полинома n-й степени.
- Необходимо написать программу, которая проверяет, является ли введенная с клавиатуры матрица трехдиагональной.
- аскаль. Написать программу которая переводит число из одной системы счисления в другую
- Написать программу, которая формирует два массива чисел
- Требуется написать программу, которая из цифр двух натуральных чисел создает наименьшее возможное число, сохраняя при эт
- Напишите программу, которая...
- напишите программу которая находит минимальный и максимальный элементы матрицы и их индексы
- Помогите! Информатика. Вводится пять чисел. Написать программу, которая вычисляет сумму всех четных из них.