Дано натуральное число, определить количество цифр кратных 3-ем и их сумму.

268

319

Посмотреть ответы 2

Ответы на вопрос:

zoltomon

Информатика

4,4(23 оценок)

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var n: =abs(readinteger('n=')); var (k,s): =(0,0); while n> 0 do begin var d: =n mod 10; if d mod 3=0 then (k,s): =(k+1,s+d); n: =n div 10 end; writeln('в числе ',k,' цифр, кратных 3. их сумма равна ',s) end. пример n= 6035 в числе 3 цифр, кратных 3. их сумма равна 9

KaterinaReyn

Информатика

4,6(42 оценок)

Program gt; var a: array[1..100]of integer; k,q,p,i,max: integer; begin for i: =1 to 512 do begin p: =i; max: =0; k: =0; while p> 0 do begin q: =p mod 2; p: =p div 2; if(q=1)then k: =k+1; if(q=0)then begin if(k> max)then max: =k; k: =0; end; end; if(max> =6)then writeln(i); end; end. 1913193823834472)размер 512 байт /c*64c=32768 байт в изображении - 32768 пикселей значит на пиксель отведен 1 байт памяти или 8 бит значит палитра 2^8 цветов или 256