Записать эти языком паскаля: 1. определить попадает ли среднее арифметическое чисел a, b в промежуток [c; d] 2. определить делится ли данное целое число на 8 и 125 , нужно,

135

179

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

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

Waschbär1115

Информатика

4,8(15 оценок)

1. var a,b,c,d,s: real; begin write('a, b: '); readln(a,b); write('c, d: '); readln(c,d); s: =(a+b)/2; writeln('среднее арифметическое = ',s: 5: 2); if (s> =c)and(s< =d) then writeln('попадает') else writeln('не попадает'); end. пример: a, b: 5 7c, d: 2 4среднее арифметическое = 6.00не попадает2.var a: integer; beginwrite('a = '); readln(a); write('число ',a); if (a mod 8=0) then write(' делится на 8')else write(' не делится на 8'); if (a mod 125=0) then writeln(' и делится на 125')else writeln(' и не делится на 125'); end.пример: a = 200число 200 делится на 8 и не делится на 125

missdrama

Информатика

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

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! №1 begin var (a,b): =readreal2('введите значения a и b: '); var (c,d): =readreal2('введите значения c и d: '); if ((a+b)/2).inrange(c,d) then writeln('среднее арифметическое попадает в промежуток') else writeln('среднее арифметическое не попадает в промежуток') end. пример введите значения a и b: 3 4.7 введите значения c и d: 2 4 среднее арифметическое попадает в промежуток №2 begin var n: =readinteger('n='); if n mod 8=0 then writeln('число делится на 8') else writeln('число не делится на 8'); if n mod 125=0 then writeln('число делится на 125') else writeln('число не делится на 125') end. пример n= 1250 число не делится на 8 число делится на 125