Uses crt; var n,s,s1,s2,k: integer; begin writeln('введите число: '); readln(n); s: =0; s1: =0; s2: =0; while n> 0 do begin inc(k); if k mod 2 = 0 then begin s: =s+n mod 10; n: =n div 10; end else begin s1: =s1+n mod 10; n: =n div 10; end; if k mod 2 = 0 then s2: =s1 else s2: =s; end; writeln('symma=',s2); end. надо сделать чтобы считало произведение . такова.дано число,найти произведение цифр стоящих на четных местах.
290
416
Ответы на вопрос:
Uses crt; var n,p: integer; begin writeln('введите число: '); readln(n); p: =1; while n> =10 do begin p: =p*(n mod 100 div 10); n: =n div 100; end; writeln('p = ',p); end. пример: введите число: 236584 p = 96
Популярно: Информатика
-
классоопп10.05.2021 07:05
-
DaniilFPS10.05.2023 12:41
-
alexxxxarchenko02.04.2023 16:20
-
linasokol0301.06.2020 21:44
-
FlUSHWER17.03.2022 00:23
-
22jully1424.03.2023 11:55
-
Azhar160507.09.2022 00:01
-
IdzSen09.09.2020 17:39
-
ifrut5201.05.2022 17:47
-
roma627921.04.2022 00:07