Является, потому что информацией является все что в твой мозг приходит, и все что из него выходит.
Khlistova1488
10.08.2022
Паскаль авс. программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке const n=4 на нужное. program alyatu; uses crt; const n=4; var i,z,s: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln('используя признак делимости, программа оперделяет делится ли введённое 4-значное число на 3'); writeln('введите число'); repeat readln (z); until ((z> 0) and (z< power(10,; for i: =1 to n do begin s: =s+z mod 10; z: =z div 10; end; if (s mod 3=0) then writeln('число делится на 3') else writeln('число не делится на 3'); end.
Aleksandrova Zhanna1250
10.08.2022
Var max, min, prev_min, n: integer; begin max : = -10000; min : = 10000; prev_min : = 10000; repeat read(n); if n > max then begin max : = n; end; if n < min then begin prev_min : = min; min : = n; end; until n = 0; writeln(max, ' ', prev_min); end.