// 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
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 7 c, d: 2 4 Среднее арифметическое = 6.00 Не попадает
2. var a: integer; begin write('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
100*90= 9000 Кб (На одну книгу)
2097152/9000 = 233 книги