Ответы на вопрос:
-65000 ты должен превратить в десятичное, потом подеоить их на каждое изчислимое тоесть 2*3,4 и потом написать 2×3 это аркуш и ввести туда эти цыфри которые получились, понятно
Var a,z,s,i,m: integer; begin readln(a); s: =0; z: =a; for i: =1 to 3 do begin s: =s+(z mod 10); z: =z div 10; end; if s mod 2 = 0 then writeln('1. верно')else writeln('1. неверно'); z: =a; s: =z mod 10; z: =z div 10; m: =0; for i: =1 to 2 do begin if s < z mod 10 then begin m: =1; break; end else begin s: =z div 10; z: =z div 10; end; end; if m = 0 then writeln('2. верно')else writeln('2. неверно'); z: =a; m: =0; for i: =1 to 3 do begin if z mod 10 = 5 then begin m: =1; break; end else begin z: =z div 10; end; end; if m = 1 then writeln('3. верно')else writeln('3. неверно'); if a mod 10=7 then writeln('4. верно')else writeln('4. неверно'); end.
Популярно: Информатика
-
moon13726.02.2021 06:48
-
dirysasha04.05.2021 09:37
-
Klimka08109810.09.2021 02:47
-
дан24313.05.2022 16:26
-
05gazieva0502.07.2022 14:19
-
alisiakuzmur16.12.2020 03:21
-
ffgdfsdf01.08.2022 11:10
-
MrFoksSuper21.09.2022 12:41
-
Alex96xelA31.01.2023 05:47
-
Tommh19.04.2020 08:23