Кодирование с 2-х знаков максимально конструкцию устройств хранения и передачи информации,поэтому предпочитание отдаётся двоичному алфавиту
Lorik-lorik29
09.06.2020
Uses graphabc; var i, c: integer; ar: array[1..5]of integer; begin for i : = 1 to 5 do read(ar[i]); window.isfixedsize : = true; window.init(0, 0, 800, 800, cldarkgray); window.centeronscreen; setfontsize(32); for i : = 1 to 5 do c : = c + ar[i].tostring.length; for i : = 1 to 7 do writeln; write(' ': 33 - c); for i : = 1 to 5 do begin if(ar[i] mod 2 = 0) and (ar[i] mod 10 < > 0) then begin setfontcolor(clred); write(ar[i]); end else if(ar[i] mod 10 = 0) then begin setfontcolor(clblue); write(ar[i]); end else if(ar[i] mod 2 < > 0) then begin setfontcolor(clyellow); write(ar[i]); end end; end.
mbrilliantova
09.06.2020
Var n,a,b: longint; k: integer; begin k: =0; write('n = '); readln(n); for n: = 1 to n do begin a: =n; b: =0; while a > 0 do begin b: =b*10+(a mod 10); a: =a div 10 end; if b=n then k: =k+1 end; writeln('искосое количество: ',k) end.