uses crt; var a,s: integer; begin clrscr; randomize; a: =random(22678)+10000; writeln('число: ',a); s: =(a mod 10)+(a div 10000)+(a mod 10000 div 1000); write('сумма 1,2 и 5 цифр: ',s); end.
asvirskiy26
04.08.2020
// pascalabc.net 3.3, сборка 1549 от 17.10.2017 // внимание! если программа не работает, обновите версию! begin var a: =readseqintegerwhile(x-> x< =100).toarray; writeln('количество четных чисел равно ',a.where(x-> x.iseven).count); a.transform(x-> x.isodd? x*x: x); a.println end. пример 35 24 38 83 110 количество четных чисел равно 2 1225 24 38 6889 begin writeln('s=',readseqintegerwhile(x-> x> =0).select(x-> x mod 10).sum) end. пример 16 24 19 21 45 0 23 -21 s=28 begin var n: =readinteger('n='); var st: =new stack < integer> ; while n> 0 do begin st.push(n mod 10); n: =n div 10 end; var a: =st.toarray; a.println(','); writeln('сумма цифр: ',a.sum); writeln('сумма нечетных цифр: ',a.where(x-> x.isodd).sum); writeln('сумма старшего и младшего разрядов: ',a.first+a.last); end. пример n= 53214212 5,3,2,1,4,2,1,2 сумма цифр: 20 сумма нечетных цифр: 10 сумма старшего и младшего разрядов: 7
Dmitriy2211104
04.08.2020
1посмотрите на данное вам число и определите количество его цифр. пример: напишите 5827 в развернутом виде. прочитайте число вслух: пять тысяч восемьсот двадцать семь. обратите внимание, что в этом числе есть четыре цифры. в результате развернутая форма будет содержать четыре слагаемых. 2 перепишите число в виде суммы его цифр, оставив между ними некоторое расстояние, чтобы умножить каждую цифру на некоторую цифру (об этом далее). пример: 5827 перепишите так: 5 + 8 + 2 + 7 3 цифры числа расположены в определенных позициях, которые соответствуют (справа налево) единицам, десяткам, сотням, тысячам и так далее. определите название позиции и ее значение для каждой цифры (справа налево). пример: так как в данном числе четыре цифры, то вам нужно определить названия четырех позиций (справа налево). 7 соответствует единицам (значение = 1). 2 соответствует десяткам (значение = 10). 8 соответствует сотням (значение = 100). 5 соответствует тысячам (значение = 1000). 4 умножьте каждую цифру данного числа на значение соответствующей ей позиции. пример: [5 * 1000] + [8 * 100] + [2 * 10] + [7 * 1] 5 запишите окончательный ответ, так как сумма произведений является развернутой формой исходного числа. пример: развернутая форма 5827: 5000 + 800 + 20 + 1
uses crt; var a,s: integer; begin clrscr; randomize; a: =random(22678)+10000; writeln('число: ',a); s: =(a mod 10)+(a div 10000)+(a mod 10000 div 1000); write('сумма 1,2 и 5 цифр: ',s); end.