Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
на паскале:
var
n,s,p: integer;
begin
read(n);
p: =n mod 10;
if p mod 2=0 then writeln ('оканчивается на четную цифру')
else writeln ('оканчивается на четную цифру');
while n> 0 do
n: =n div 10;
s: =s+1;
end;
writeln ('количество цифр в числе', s);
end.
3 базовых цвета
2 бита - 4 варианта
4*4*4=64 цвета
Популярные вопросы