Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: число с является средним чисел а и b.

Var a.b.c,d: integer;
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.

решал раньше , подставь свои данные только и всё

дано:

разрешающая способность сканера 600 х 600 dpi.

размер 10см x 15см.

глубина цвета - 3 байта.

найти:

каков информационный объём этого файла?

решение:

вначале переводим глубину
цвета из байт в биты

3 байта * 8бит в байте = 24 бит

вычисляем разрешение сканера в 1 дюйме квадрат

600*600 = 360 000 пикселей в 1 дюйм^2

переводим размер картинки из квадратных сантиметров в квадратные дюймы.

10см = 3.937дюйма

15см =
5,906дюйма

10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2

вычисляем количество пикселей в изображении

23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей

информационный объём вычисляем по формуле

количество пикселей * глубину цвета =

8
370 000 пикселей * 24 бит = 200 880 000 бит.

переводим в байты делением на 8.

25 110 000 байт

или же делим на 1024*1024 чтобы получить количество мегабайт

23,95 мегабайт

наибольшая поразрядная сумма может быть, если записаны три девятки, т.е. 27

2727 - удовлетворяет этому требованию. число 999999

277 - можно разбить только на 27'7. значит число имеет вид 999**. но сумма цифр 9** не может быть равна 7. не подходит.

2715 - разбиваем 27'15.
подходит. например, 99933

2730 - 27'30 не подходит

3027 - 30'27 не подходит

1527 - 15'27 подходит. например, 66999

727   - разбивается только на 7'27. значит, последние - три девятки. число **999. сумма цифр **9 не может быть равна 7. не подходит

512   -