Скорее всего всё можно было проще сделать, но я только так понимаю, так что вот. программа проверена и работает. program z; var a,b,c,d,e,x,g,h: integer; begin write('введите пятизначное число'); read(x); a: = x mod 10; b: = x mod 100; b: = b div 10; c: = x mod 1000; c: = c div 100; d: = x mod 10000; d: = d div 1000; e: = x mod 100000; e: = e div 10000; if a mod 2=0 then h: =a else g: =a; if b mod 2=0 then h: =h+b else g: =g+b; if c mod 2=0 then h: =h+c else g: =g+c; if d mod 2=0 then h: =h+d else g: =g+d; if e mod 2=0 then h: =h+e else g: =g+e; writeln(' сумма нечётных цифр равна ', g); write(' сумма чётных цифр равна ', h); end.
megapolisgroup
02.10.2020
Число: 54343 5+3+3=11 4+4=8
ekkim310
02.10.2020
Function nok(a, b: integer): integer; var c, d, e: integer; begin c : = a; d : = b; while (d > 0) do begin c : = c mod d; e : = c; c : = d; d : = e; end; result : = (a div c) * b; end; const n = 4; var a: array [1..n] of integer; b: array [1..n*n] of integer; i, j, min_: integer; begin writeln('введите n целых чисел, только вот давайте без нулей, детсадовцы знают, что на 0 делить нельзя, плохо это'); min_ : = 2147483647; for i : = 1 to n do readln(a[i]); for i : = 1 to n do for j : = 1 to n do begin if (i = j) then continue; b[i + n * (j - 1)] : = nok(a[i], a[j]); min_ : = min(b[i + n * (j - 1)], min_); end; write(' '); for i : = 1 to n do write(i: 5); writeln(); for i : = 1 to n do begin write(i: 5); for j : = 1 to n do write(b[i + n * (j - 1)]: 5); writeln(); end; writeln('min: ', min_); end.
toprussianevent
02.10.2020
Const m = 50; function nok(a, b: integer): integer; var c: integer; begin if a = b then nok : = a else begin c : = a * b; repeat if a > b then a : = a - b else b : = b - a; until a = b; nok : = c div a end end; var a: array[1..m] of integer; i, j, n, p, q, nk, mn: integer; begin randomize; write('введите количество элементов в массиве (2..50)- '); readln(n); writeln('исходный массив'); for i : = 1 to n do begin a[i] : = random(100) + 1; write(a[i], ' ') end; writeln; p : = a[i]; q : = a[2]; mn : = p * q; for i : = 1 to n - 1 do for j : = i + 1 to n do begin nk : = nok(a[i], a[j]); if (mn > nk) then begin p : = a[i]; q : = a[j]; mn : = nk end end; writeln('пара: ', p, '-', q, ' нок=', mn); end. тестовое решение: введите количество элементов в массиве (2..50)- 20 исходный массив 19 36 99 86 79 83 73 69 27 14 87 67 49 84 98 79 38 4 60 22 пара: 14-4 нок=28
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Нужно ввести пятизначное число. найти в нем сумму четных и сумму нечетных цифр.