сервис вопросов и ответовДаны целые числа x, y,z.Найти максимальное из (x-y, x/y, z*x). x=2, y=0.3, z=0.5. (Паскаль) Буду признательна за ответ.
10-11 класс|
|
караf
30 окт. 2013 г., 17:50:46 (10 лет назад)
Dtfgwedg
30 окт. 2013 г., 19:22:57 (10 лет назад)
program z1;
var
x,y,z,a,b,c:real;
begin
x:=2;
y:=0.3;
z:=0.5;
a:=x-y;
b:=x/y;
c:=z*x;
if a > b
then begin
if a < c
then write ('Наибольшее', c)
else write ('Наибольшее', a)
end;
else write ('Наибольшее', b);
end.
Zhiltsova2002
30 окт. 2013 г., 20:54:02 (10 лет назад)
решение для данных чисел.
var x,y,z,a,b,c: real;
begin
x:=2;
y:=0.3;
z:=0.5;
a:=x-y;
b:=x/y;
c:=z*x;
write('naibolshee x/y = ',b:2:1);
readln;
end.
Ответить
Другие вопросы из категории
Текст занимает 5 страниц. На каждой странице размещается 25 строк по 60 символов в строке. сколько символов в используемом алфавите, если все сообщение
содержит 1875 байт?
дана строка. Каждую точку замените многоточием (т.е тремя точками). В чем беда? или совсем не правильно?
var str : string;
q:integer;
k:string;
begin
writeln ('введите строку');
readln (str);k:='..';
q:=pos('.', str );
while q<>0 do
begin
insert (str,k, q );
q:=pos('.', str );
end;
writeln (str);
end.
Читайте также
Задачи паскаль, помогите пожалуйста кто. 1, Напишите программу, реализующую следующие вычисления. Дан номер месяца — целое число в диапазоне
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
Дана строка , в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются В заданном формате дд- целое число из диапазона от 1 до
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
Даны 2 двузначных целых числа X и y.Найти D=MAX{x+y;y-x}+3,E=MIN{x^2+y^2;y^2+x*y}-4.если D<E,то к переменной D прибавить первую цифру числа
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале
Вы находитесь на странице вопроса "Даны целые числа x, y,z.Найти максимальное из (x-y, x/y, z*x). x=2, y=0.3, z=0.5. (Паскаль) Буду признательна за ответ.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.