Вася написал программу (для удобства приводим ее код на трех языках программирования): python: x = int( a = x % 10 b = x // 10 % 10 c = x // 100 % 10 print(a + b + c) pascal: var x, a, b, c: integer; begin readln(x); a : = x mod 10; b : = x div 10 mod 10; c : = x div 100 mod 10; writeln(a + b + c); end. c++: #include using namespace std; int main() { int x, a, b, c; cin > > x; a = x % 10; b = x / 10 % 10; c = x / 100 % 10; cout < < a + b + c; return 0; } определите, при каком наименьшем значении x программа выведет 23! , я не шарю

Число понятно трехзначное , первая переменная а вычисляет последнюю цифру х(единицы),b - десятки,с - сотни
Чтобы найти наименьшее присвоим двум последним цифрам значение 9,
сумма будет равна 18, и число сотен тогда будет равно 23 - 18 = 5 значит наше число равно 599.

Самым первым компьютерным стандартом кодирования символов стал ASCII (полное название - American Standart Code for Information Interchange). Для кодирования любого символа в нём использовали всего 7 бит. Как вы помните, что закодировать при бит можно лишь 27 символов или 128 символов. Этого достаточно, чтобы закодировать заглавные и прописные буквы латинского алфавита, арабские цифры, знаки препинания, а так же определенный набор специальных символов, к примеру, знак доллара - «$». Однако, чтобы закодировать символы алфавитов других народов (в том числе и символов русского алфавита) пришлось дополнять код до 8 бит (28=256 символов). При этом, для каждого языка использовалась свой отдельная кодировка.

Все авторские права на этот материал принадлежат исключительно сайту Информатика. В случае обнаружения нарушения условий копирования наших материалов, будут предприняты соответствующие санкции к нарушителям: обращение к хостинговой компании и другие меры в соответствии с действующим законодательством РФ. Источник материала: http://inphormatika.ru/lectures/kodirovanie_informacii.html

Var i,j,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 9 do
 for j:=0 to 9 do
  begin
  s:=s+i*100+j*10+i;
  k:=k+1;
  end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.

Результат:
s = 49500 k = 90 sred = 550.00

Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
 s:=0; k:=0;
 for i:=1 to 9 do
  for j:=0 to 9 do
   begin
   s:=s+i*100+j*10+i;
   k:=k+1;
   end;
   s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
  StaticText1.Caption := s;
end;