Var a:integer; begin writeln('Введите число'); readln(a); if (((a mod 10)* (a div 1000)*(a div 100 mod 10)* (a mod 100 div 10)) mod 3 =0) then write('произведение цифр этого числа кратно трём') else write('произведение чисел не кратно трём') end.
Var a: array[0..10] of integer; i, n, k: integer; // b: array[1..4, 1..4] of integer;
begin Println(); Println(1); for i := 0 to 10 do A[i] := i + 1; PrintLn(a); Println(); for i := 1 to 10 do begin A[i] := A[i - 1]; PrintLn(a); end;
Println(); Println(2); for i := 0 to 10 do A[i] := i + 1; PrintLn(a); Println(); for i := 10 downto 0 do begin A[i] := A[10 - i]; PrintLn(a); end; end.
Все элементы будут равны единице. Сначала они будут заполнены значением, большим своего индекса на 1, а потом каждому элементу, начиная со второго (который А[1]) будет присвоено значение предыдущего элемента и 1 распространится везде.
Для проверки была написана программа с отладочной выдачей.
var a:array[0..10] of integer; i:integer; begin for i:=0 to 10 do begin a[i]:=i+1; Write(a[i],' ') end; Writeln; Write(a[0],' '); for i:=1 to 10 do begin a[i]:=a[i-1]; Write(a[i],' ') end end.
begin
writeln('Введите число');
readln(a);
if (((a mod 10)* (a div 1000)*(a div 100 mod 10)* (a mod 100 div 10)) mod 3 =0) then write('произведение цифр этого числа кратно трём')
else write('произведение чисел не кратно трём')
end.