Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
решение на языке 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.
1)
var
s: string;
s: ='пробел';
writeln(s);
delete(s,4,1);
insert('д',s,4);
2)
i: integer;
a,b: string;
readln(a);
b: ='';
for i: =1 to length(a) do
b: =b+a[i]+' ';
writeln(b);
3)
a: string;
if a[2]=a[4] then writeln('равны')
else writeln('не равны');
напиши само ,я
8=1000(2)=8(8)=8(16)
20=10100(2)=24(8)=14(16)
33=100001(2)=41(8)=21(16)
56=111000(2)=70(8)=38(16)
115=1110011(2)=163(8)=73(16)
246=11110110(2)=366(8)=f6(16)
522=1000001010(2)=1012(8)=20a(16)
1133=10001101101(2)=2155(8)=46d(16)
2166=100001110110(2)=4166(8)=876(16)
а вообще, можно использовать инженерный режим калькулятора windows для перевода в эти системы
Популярные вопросы