Написать программу в PascalABC.NET задание:с клавиатуры вводятся 3 числа.найти среднее арифметическое двух больших и двух меньших.
5-9 класс
|
по нубски правдо очень проверить не забудь)
var
a,n,c:integer;
x,y:real;
begin
readln(a);
readln(n);
readln(c);
if ((a > n) and (n > c)) then begin
x:=(a+n)/2;
y:=(n+c)/2;
end else if((n > a) and (a > c)) then begin
x:=(a+n)/2;
y:=(a+c)/2;
end else if((c > a) and (a > n)) then begin
x:=(a+c)/2;
y:=(a+n)/2;
end else if((c > n) and (n > c)) then begin
x:=(c+n)/2;
y:=(n+c)/2;
end else if((n > c) and (c > a)) then begin
x:=(c+n)/2;
y:=(a+c)/2;
end else if((a > c) and (c > n)) then begin
x:=(c+a)/2;
y:=(n+c)/2;
end else if((c > n) and (n > a)) then begin
x:=(c+n)/2;
y:=(n+a)/2;
end;
write('наибольшее: ',x,' наименьшее: ',y);
end.
Другие вопросы из категории
пароль равен количеству чисел от 1 до 10000, НЕ делящихся на 13 и 17. Чему равен пароль васи?
vari,r:integer;
begin
for i:=1 to n do
begin
a[i]:=random (20);
write (a[i],' ');
end;
r:=0;
for i:=1 to n do
if a[i]<10 then r:=r+1;
writeln;
writeln ('kolichestvo chisel menshe 10 - ',r);
end.
b1,b2,b3,b4,b5,b6:boolean;
begin
Write('введите 4 любых числа');
readln(x,y,z,d);
b1:=x+y>z-d;
b2:=x-y<=z+d;
b3:=x/y<z*d;
b4:=x*y>=z/d;
b5:=x+y=z+d;
b6:=x-y<>z-d;
Write('сумма первого и второго больше разности второго и третьего;b1');
WRITE('разность первого и второго больше или равна сумме третьего и четвертого;b2');
write('деление первого и второго меньше произведения третьего и четвертого;b3');
write('произвдение первого и второго больше или равна делению третьего и четвертого;b4');
write('сумма первого и второго равна сумме третьего и чертогоb5');
write('разность первого и второго не равна разности третьего и четвертого');
Readln (b1,b2,b3,b4,b5,b6);
End.
исправьте, в паскале, просит ввести доп данные, а я не знаю что делать:(
Читайте также
2.С клавиатуры вводится действительное число p.Записать отдельно его целую часть C.
Помогите составить программу.
Задание: из 1000 чисел надо выбрать большее.
программу,используя оператор цикла While,которая будет вводить целые положительные числа не превышающие 100. Найти сумму квадратов чисел 2.Написать программу используя оператор цикла Repeat,которая будет вводить целые числа до тех пор пока не будет введён 0.Подсчитать среднее арифметическое введённых чисел.