сервис вопросов и ответовПрограммирование на языке Паскаль. Даны три числа
5-9 класс|
|
Nilufar357
12 авг. 2013 г., 2:06:27 (10 лет назад)
Spekal2002
12 авг. 2013 г., 4:10:08 (10 лет назад)
var a,b,c,d,min:real;
flag: boolean;
begin
flag:=true;
writeln('Enter A, B, C, D numbers:');
readln(a,b,c,d);
if (a=d) then begin
writeln('a equals to d!');
flag:=false;
min:=a;
end;
if (b=d) then begin
writeln('b equals to d!');
flag:=false;
if (b<min) then min:=b;
end;
if (c=d) then begin
writeln('c equals to d!');
flag:=false;
if (c<min) then min:=c;
end;
if flag then writeln('Max difference: ',d-min);
end.
Ответить
Другие вопросы из категории
А1. Некоторое число в двоичной системе счисления записывается как 1100101. Определите и запишите в ответ количество значащих единиц в десятичной записи
этого двоичного числа
Фирма" Электронные приборы" выпустила автоматизированную ванну " Банный комплекс-XXI" пульт управления представлен ниже "Долить 1л" "Долить 2 л"
"Долить 3л" "Долить 4л" "Долить 5л" "Слить 1л" "Слить 2л" "Слить 3л" "Слить 4л" "Слить 5л" "Слить всю воду" Однако в результате ошибки фирмы все кнопки кроме |ДОЛИТЬ 5 | и |СЛИТЬ 3| не работают. Напишите программу , позволяющую долить в ванну следующие количества воды 1)4 литра воды 2) 3 литра
Читайте также
Плиз срочно надо.1)Найдите правильную на языке паскаль запись выражения
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
даны два числа. Если первое число нечетное, то найти сумму кубов, а иначе - куб суммы. даны три числа. Если хотя бы одно из чи
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
«Условный
оператор». Написать программу на языке Паскаль:
Даны четыре числа. Определить количество чисел,
которые больше 10.
Вы находитесь на странице вопроса "Программирование на языке Паскаль. Даны три числа", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.