Во втором находится сумма цифр числа
а = 1
б = 2
с = 5
Сумма = 8
В третьем надо написать, насколько я вижу, на паскале программу.
program Hello;var a,b,c,x:integer;begin readln(x); a:=x div 100; b:=x mod 100 div 10; c:=x mod 10; writeln('Сотни ',a); writeln('Десятки ',b); writeln('Единицы ',c);end.
Делите последовательно на 2 и остаток от деления записываете справа налево - получаете двоичное представление числа
40(10) 40/2=20 - остаток = 0
20/2=10 - остаток = 0
10/2=5 - остаток =0
5/2 =2 , остаток = 1
2/2=1 остаток =0
1
если после последнего деления результат меньше 2
то частное записываем в представление
получили биты: 101000 - это и есть двоичное представление числа 40(10)
для числа 8
8/2=4 - остаток 0
4/2 =2 - остаток 0
2/2=1
двоичное представление числа 8(10) 100(2)
так же вычисляете для 54(10) и 9(10)
9(10) = 8(10) + 1 = 100(2) + 1 = 101(2)
54/2=27 ->0
27/2=13 ->1
13/2=6 ->1
6/2=3 -> 0
3/2=1 -> 1
-> 1
двоичное представление числа 54(10)
110110(2) = 54(10)
110110 = 2(в пятой)+2(в четвертой) +2(во второй)+
2(в первой) степенях =32+16+4+2=48+6=54
Скорее второе но я не уверен
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
N:byte;
A:array[1..256,1..256] of shortint;
implementation
{$R *.dfm}
Function S4(A:shortint):String;
Begin
result:=IntToStr(A);
For A:= 1 to 4-Length(result) do
result:=' '+result;
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
i,j:byte;
S:string;
begin
Randomize;
N:=StrToInt(Edit1.Text);
ListBox1.Clear;
For i:= 1 to N do
Begin
S:='';
For j:= 1 to N do
Begin
A[i,j]:=random(256)-128;
S:=S+S4(A[i,j])+' '
End;
ListBox1.Items.Add(S)
End;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
M,i,j,iMin,jMin:byte;
B:boolean;
S:string;
begin
M:=N div 2;
B:=true;
For i:= 1 to N do
For j:= 1 to M do
if A[i,j] <> A[i,N-j+1] then B:=false;
if Not B then
Begin
iMin:=1;
jMin:=1;
For i:= 1 to N do
For j:= 1 to N do
if A[i,j] < A[iMin,jMin] then
Begin
iMin:=i;
jMin:=j;
End;
ListBox1.Clear;
For i:= 1 to N do
Begin
S:='';
For j:= 1 to N do
Begin
A[i,j]:=A[iMin,jMin];
S:=S+S4(A[i,j])+' '
End;
ListBox1.Items.Add(S)
End;
End
end;
end.
Для красивого вывода матрицы на форме стоит моноширинный шрифт Courier New(Шрифт можно изменить так: выбрать объект(например, ListBox1), далее найти свойство Font → Name, и изменить шрифт на нужный). Размер шрифта на Label1 = 13(Label1.Size = 13).
