Даны две тройки вещественных чисел. найти среднее арифметическое максимумов каждой тройки p.s писать программу на базе paskalabc.net

232

274

Посмотреть ответы 3

Ответы на вопрос:

klara90

Информатика

4,5(72 оценок)

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var m1: =readseqreal('первая тройка: ',3).max; var m2: =readseqreal('вторая тройка: ',3).max; writeln('среднее арифметическое максимумов равно ',(m1+m2)/2) end. пример первая тройка: 5.2 7.4 6.1 вторая тройка: -4.2 5 7 среднее арифметическое максимумов равно 7.2

XyJiuGaN4uK

Информатика

4,7(20 оценок)

Вроде как-то так: var a1,a2,a3,a4,a5,a6: real; function sr(a1,a2,a3: real): real; begin if ((a1< =a2) and (a1> =a3)) or ((a1< =a3) and (a1> =a2)) then sr: =a1 else if ((a3< =a2) and (a3> =a1)) or ((a3< =a1) and (a3> =a2)) then sr: =a3 else sr: =a2; end; begin write('введите две тройки чисел: '); readln(a1,a2,a3,a4,a5,a6); writeln('среднее арифметическое 2-х средних чисел =',(sr(a1,a2,a3)+sr(a4,a5,a6))/2: 0: 4); end.

homya4okm

Информатика

4,5(3 оценок)

Basic: dim n as integer, kratnoe, howmuch input "введите n"; n input "введите, чему должны быть кратны числа"; kratnoe for i = 1 to n if i mod kratnoe = 0 then howmuch = howmuch + 1 end if next i print howmuch c#: int n = int.parse(console.; int kratnoe = int.parse(console.; int howmuch = 0; for (i = 0; i < n; i++) { if (n % kratnoe == 0) { howmuch++; } } console.writeline(howmuch); console.readline();