Помогите пожалуйста,используя программу ABC Паскаль составить программу определения минимального элемента из трех элементов х1, х2, х3.
5-9 класс
|
var
x1, x2, x3:real;
begin
write('x1 = '); readln(x1);
write('x2 = '); readln(x2);
write('x3 = '); readln(x3);
if x1 < x2 then
if x1 < x3 then
writeln('минимальным является элемент х1 = ', x1)
else
writeln('минимальным является элемент х3 = ', x3)
else
if x2 < x3 then
writeln('минимальным является элемент х2 = ', x2)
else
writeln('минимальным является элемент х3 = ', x3);
end.
Другие вопросы из категории
длина окружности при х=2.56789, и х=345.678 с точность до 3 знаков после запятой
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
a) Тип треугольника, который получается при построении по хаданным сторонам треугольника;
Если дано трехзначное число, например 123 его можно представить в виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу, которая, получая от пользователя трехзначное число, будет определять из каких цифр оно состоит и выводить их через пробел (например, 1_2_3).
таким,которое читается одинаково слева направо и справа налево(например:23132).