Составить программу, которая сравнивает два действительных числа x, y (xy), введенных с клавиатуры, и меньшее из них заменяет их полусуммой, а большее
10-11 класс
|
- их удвоенным произведением.
var a,b:real;
Begin
read(a,b);
if a>b then begin
a:=2*(a+b);
b:=a/4;
end;
else begin
b:=2*(a+b);
a:=b/4;
end;
writeln(a,b);
End.
Другие вопросы из категории
В линейном списке целых чисел найти максимум и минимум
Читайте также
одинаковы, сообщает об этом. pascal
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
введенные с клавиатуры и выводит на экран большее .
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))