Семь раз получаем остаток от деления на 10 и делим число на 10, тип числа целый, чтобы при каждом делении было округление
int n = ЧИСЛО;
int a[7];
for (int i = 0; i < 7; ++i) {
a[i] = n % 10;
n /= 10;
}
Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
begin
var (m, n) := ReadInteger2('Число строк и столбцов:');
var a := MatrRandom(m, n, -99, 99);
a.Println(5);
Writeln;
var t := a.ElementsWithIndices.MinBy(p -> p[0]);
a[t[1], t[2]] := a.ElementsByRow.Sum;
a.Println(5)
end.
Program gt;
var n,i,j:integer;
a:array[1..100,1..100]of real;
s:real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if(i=j)then s:=s+a[i,j];
end;
writeln(s);
end.
1) 8/2=4
4/2=2
2/2=1
12( приписали 2)
12/2=6
Ответ: 8 преобразуется в 6
2)12212