13 ! 13 фрагмент программы паскаль a : = 0; a : = a + n div 1000; a : = a + (n div 100) mod 10; a : - id581254520200909 от Bordeaux 09.09.2020 20:13

Question

Информатика: 13 ! 13 фрагмент программы паскаль a : = 0; a : = a + n div 1000; a : = a + (n div 100) mod 10; a : = a + (n div 10) mod 10; a : = a + n mod 10; си a = 0; a = a + n / 1000; a = a+ (n / 100) % 10; a = a + (n / 10) % 10; a = a + n % 10; выберите один ответ: 1)вычисляет сумму цифр любого натурального четырехзначного числа. 2)вычисляет максимальную цифру числа. 3) ни один из вариантов. 4) вычисляет количество разрядов числа. 5)вычисляет сумму цифр любого натурального числа.

Bordeaux · Accepted Answer

Const n=12; m=10;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
k:=0;
for j:=1 to m do
for i:=n downto 1 do
begin
k:=k+1;
a[i,j]:=k;
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.

Результат:
12 24 36 48 60 72 84 96 108 120
11 23 35 47 59 71 83 95 107 119
10 22 34 46 58 70 82 94 106 118
9 21 33 45 57 69 81 93 105 117
8 20 32 44 56 68 80 92 104 116
7 19 31 43 55 67 79 91 103 115
6 18 30 42 54 66 78 90 102 114
5 17 29 41 53 65 77 89 101 113
4 16 28 40 52 64 76 88 100 112
3 15 27 39 51 63 75 87 99 111
2 14 26 38 50 62 74 86 98 110
1 13 25 37 49 61 73 85 97 109

MOGZ ответил