Составить программу 1)Даны действительные числа a,b,c. Если выполняется a>b>c, то каждое число заменить наибольшим, в противном случаи заменить их
5-9 класс
|
модулями.
program gt;
var q,a,b,c,max:real;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
q:=0;
if(a>b)and(b>c)then begin
a:=max;
b:=max;
c:=max;
q:=1;
end;
if(q=0)then begin
a:=abs(A);
b:=abs(b);
c:=abs(c);
end;
writeln(a,' ',b,' ',c);
end.
Другие вопросы из категории
А и (В или неВ и неС)
Читайте также
зашифровал так: цифры, занимающие чётные разряды (нумерация разрядов
ведется вправо налево начиная с нуля), циклически сдвигаются вправо, а
нечетные-влево на количество позиций, равных номеру разряда. Так,
например, циклический сдвиг цифры 7 на четыре позиции вправо дает нам 1
(7->8->9->0->1). Затем из нечётных цифр вычитается, а к
чётным прибавляется 1. Далее оба шага повторяется еще один раз. В
результате шифровки получилось число 3216. Определите пароль.
начиная с нуля), циклически сдвигаются вправо, а нечетные-влево на количество позиций, равных номеру разряда. Так, например, циклический сдвиг цифры 7 на четыре позиции вправо дает нам 1 (7->8->9->0->1). Затем из нечётных цифр вычитается, а к чётным прибавляется 1. Далее оба шага повторяется еще один раз. В результате шифровки получилось число 3216. Определите пароль.
налево начиная с нуля), циклически сдвигаются вправо, а нечетные-влево на количество позиций, равных номеру разряда. Так, например, циклический сдвиг цифры 7 на четыре позиции вправо дает нам 1 (7->8->9->0->1). Затем из нечётных цифр вычитается, а к чётным прибавляется 1. Далее оба шага повторяется еще один раз. В результате шифровки получилось число 3216. Определите пароль.
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.