Дано четырехзначное число. определить, кратна ли трем сумма его цифр. написать программу в паскале. не используя массивы и циклы.

Var s, a: integer; begin readln (a); s: =adiv1000+adiv100mod10+amod100div10  +  amod10; if s mod 3=0 then writeln ('сумма кратна 3') else writeln ('сумма не кратна 3'); end.

// pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin   var a: =matrrandom(6,3,-99,99);   a.println(4); writeln(4*a.colcount*'-');   a.rows.select(r-> r.where(x-> x> 0).sum).print;   println(' - суммы положительных');     writeln;   var z: =matrrandom(3,5,-10,20);   z.println(4); writeln(4*z.colcount*'-');   z.rows.selectmany(x-> x).where(x-> (x> 0) and (x< end. пример   -67  56 -68   16 -59 -82   -54 -44  90   82  95  39   -44  60  22   -97  82  23 56 16 90 216 82 105 - суммы положительных     7  -5  -3    5  -7     3    5  -8  14  -6   12  14  19  14  -7 7 5 3 5 14 12 14 14

#include < iostream> using namespace std; int main() { int n, k; cout < < "n = "; cin > > n; cout < < endl; int a[n]; for (int i = 0; i < n; i++) { cout < < "a[" < < i < < "] = "; cin > > a[i]; cout < < endl; } cout < < "k = "; cin > > k; cout < < endl; int c = 0; for (int i = 0; i < n; i++) { if (a[i] % 10 == k) c++; } int ret[c], pos = 0; for (int i = 0; i < n; i++) { if (a[i] % 10 == k) { ret[pos] = a[i]; pos++; } } cout < < "результат: " < < endl; for (int i = 0; i < c; i++) { cout < < ret[i] < < ' '; } return 0; }