Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснеблин ряльно сори у нас в кантрольной тание:
ответ: я не уверен но всё таки вот решение
Объяснение:
327 [8] -> 11010111 [2] -> D7 [16]
подробнее в интернете есть я проверил!
решение на языке pascal
program pr;
var n,a,b,c, sum: integer;
begin
readln (n);
a: =n div 100;
b: =n mod 100 div 10
c: =n mod 10
sum: =a+b+c;
if sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');
readln;
end.
s : = 1 ;
for i : = 1 to n do
if a[i] mod 3 = 0 then
s : = s * a[i];
writeln(s);
Популярные вопросы