Дано натуральное число. определить: а) сколько раз в нем встречается цифра а; б) количество его цифр, кратных z (значение z вводится с клавиатуры; z 2, 3, 4); в) сумму его цифр, больших a (значение a вводится с клавиатуры; 0 a 8); г) сколько раз в нем встречаются цифры x и y.
244
360
Ответы на вопрос:
Var a,str: string; k,n,i,z,m,j,c,s,x,y,l: integer; begin writeln('введите число'); readln(str); writeln('a ? '); readln(a); writeln('z ? '); readln(z); writeln('x & y'); readln(x,y); n: =length(str); for i: =1 to n do begin if str[i]=a then k: =k+1; val(str[i],m,j); if m mod z=0 then c: =c+1; if str[i]> a then begin val(str[i],m,j); s: =s+m; end; val(str[i],m,j); if (m=x)or(m=y)then l: =l+1; end; writeln('k: ',k,'кратное z: ',c,' s: ',s,' кол-во x,y: ',l); end.
Популярно: Информатика
-
NAZBEK22.03.2022 02:34
-
Adriet26.06.2021 07:10
-
МейнКун0508.10.2021 17:00
-
Lizavladimir0716.03.2021 11:34
-
ivanovaizl23.05.2023 22:30
-
ziatiok2016p074n417.04.2021 20:46
-
sweetmayers09.04.2021 19:07
-
kknopcka21.02.2021 17:46
-
Dudosikgsgss20.08.2021 00:13
-
ncrfeed21.06.2023 18:35