Ответы на вопрос:
ISO 646
ASCII
BCDIC
EBCDIC
ISO 8859:
ISO 8859-1, ISO 8859-2, ISO 8859-3, ISO 8859-4, ISO 8859-5, ISO 8859-6, ISO 8859-7, ISO 8859-8, ISO 8859-9, ISO 8859-10, ISO 8859-11, ISO 8859-13, ISO 8859-14, ISO 8859-15
CP437, CP737, CP850, CP852, CP855, CP857, CP858, CP860, CP861, CP863, CP865, CP866,
Windows-1250
Function div3(n: longint): boolean; var s: byte; begin s: =0; while n> 0 do begin s: =s+n mod 10; n: =n div 10; end; if s mod 3=0 then div3: =true else div3: =false; end; var a: longint; begin write('введите a: '); readln(a); if div3(a) then write('число делится на 3') else write('число не делится на 3'); end.
Популярно: Информатика
-
mirimyan7924.07.2022 22:04
-
alenagerasimov124.05.2020 22:38
-
alkofner15.02.2022 00:05
-
romatrapkin909112.07.2022 14:37
-
limbo03rus23.12.2022 10:46
-
nafikovmarat53923.03.2022 06:10
-
rgfheh28.06.2023 11:20
-
demirooova21.08.2021 22:24
-
tawawma24.01.2020 23:57
-
tda51231.07.2020 17:53