Так все просто. Н - 1 байт, а - 1 байт, пробел - 1 байт, з - 1 байт и т.д. до конца: к - 1 байт, о - 1 байт, т - 1 байт, точка - 1 байт. В итоге информационный объем будет равен длине предложения в символах - 20 байт.
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016 const k=4; //количество классов u=18; // количество учеников в классе var a:array[1..k,1..u] of real; // массив с ростом n:array[1..k] of integer; // массив результатов i,j:integer; // счетчики циклов m:real; // средний рост ученика в классе begin for i:=1 to k do begin Writeln('Введите рост учеников ',i,'-го из классов'); m:=0; for j:=1 to u do begin Read(a[i,j]); m:=m+a[i,j] end; m:=m/u; n[i]:=0; for j:=1 to u do if abs(a[i,j]-m)>5.0 then Inc(n[i]); end; Writeln('Количество учеников с ростом, отличающимся от среднего'); Writeln('по каждому из классов более, чем на 5'); for i:=1 to k do Write(n[i]:5) end.
Пример решения для упрощенного случая, когда в классе на 18, а 5 учеников (чтобы меньше набирать) Введите рост учеников 1-го из классов 168 174 181 172 175 Введите рост учеников 2-го из классов 162 173 170 158 183 Введите рост учеников 3-го из классов 157 185 159 168 167 Введите рост учеников 4-го из классов 170 173 176 168 171 Количество учеников с ростом, отличающимся от среднего по каждому из классов более, чем на 5 2 3 3 0
В наихудшем случае, последнее новогоднее число - 11111111.
#include <iostream>
bool isNewYearNumber(int n); int sumDigits(int num); bool hasZero(int n);
int main() { const int LASTNEWYEARNUMBER = 11111111; long long sum = 0; for(int i = 0; i <= LASTNEWYEARNUMBER; i++) if ( isNewYearNumber(i) ) sum += i; std::cout << "Сумма всех новогодних чисел: " << sum << '\n'; return 0; }
Так все просто. Н - 1 байт, а - 1 байт, пробел - 1 байт, з - 1 байт и т.д. до конца: к - 1 байт, о - 1 байт, т - 1 байт, точка - 1 байт. В итоге информационный объем будет равен длине предложения в символах - 20 байт.