Информационный объем книги-1, 5 мб. на странице 48 строк по 64 символа в строке. сколько в книге страниц?

Program zadacha;

Const n = 10;

Type mas=array[1..n] of integer;

Var s,i,k,d:integer;

m:mas;

Begin

s:=0;

k:=0;

readln(d);

For i:=1 to n do

read(m[i]);

For i:=1 to n do

if m[i]<d then begin

s:=s+m[i];

k:=k+1;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (Это решение для случая если вы вводите сразу весь массив чисел)

Program zadacha;

Const n = 10;

Var s,i,k,d,m:integer;

Begin

s:=0;

k:=0;

readln(d);

for i:=1 to n do begin

readln(m);

if (m < d) then begin

s:=s+m14;

k:=k+1;

end;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (А это решение для того случая когда вы вводите элементы по одному )

Вот простой пример написанный на С++

Если нужно объяснить программу то пиши: Telegram @danileremeev

#include <iostream>

using namespace std;

struct st{

int x1, x2, x3, amount, composition, sum_of_squares;

int number, thousand, hundreds, dozens, units;

int a, b, amount_ab, difference_ab, composition_ab;

}; st St;

int main() {

setlocale(0, "");

cout << "1)\n";

cout << "x1: "; cin >> St.x1;

cout << "x2: "; cin >> St.x2;

cout << "x2: "; cin >> St.x3;

St.amount = St.x1 + St.x2 + St.x3;

St.composition = St.x1 * St.x2 * St.x3;

St.sum_of_squares = (St.x1 * St.x1) + (St.x2 * St.x2) + (St.x3 * St.x3);

cout << "суммa: " << St.amount << "\nпроизведение: " << St.composition << "\nсумму квадратов: "<<St.sum_of_squares << endl;

cout << "\n2)\n";

for (;;) {

 cout << "введите четырехразрядное число: ";

 cin >> St.number;

 if (St.number >= 1000 && St.number <= 9999) {

  St.thousand = St.number / 1000;

  St.hundreds = St.number / 100;

  St.dozens = St.number / 10;

  St.units = St.number / 1;

  cout << "Тысяч - " << St.thousand << ", сотен - " << St.hundreds << ", десятков - " << St.dozens << ", единиц - " << St.units;

  break;

 }

}

cout << "\n\n3)\n";

for (;;) {

 cout << "Введите два натуральных числа <=10\n";

 cin >> St.a >> St.b;

 if (St.a >= 0 && St.a <= 10 && St.b >= 0 && St.b <= 10) {

  St.amount_ab = St.a + St.b;

  St.difference_ab = St.a - St.b;

  St.composition_ab = St.a * St.b;

  cout << "суммa: " << St.amount_ab << "\nразность: " << St.difference_ab <<"\nпроизведение: " << St.composition_ab << endl;

  break;

 }

}

system("pause > nul");

}