Var x,y,z:intefer;
begin
writeln('Vvedite 3 chisla');
readln(x,y,z);
if (x <span>mod5=0) then writeln(x);
</span>if (y <span>mod5=0) then writeln(y);
</span>if (z <span>mod5=0) then writeln(z);
</span>end.
9*1024*8(это весь информационный объём)/48*6*8(количество символов(без количества строк))=32 строки помещается на 1 странице
1. Переведем все числа в десятичную систему счисления
X=110011₂ = 1∙2⁵+1∙2⁴+0∙2³+0∙2²+1∙2¹+1∙2⁰ = 32+16+0+0+2+1 = 51
Z=61₈ = 6∙8¹+1∙8⁰ = 48+1 = 49
W=2F₁₆ = 2∙16¹+15∙16⁰ = 32+15 = 47
Ответ: W,Z,X
2. а) Переведем 31₅ в семеричную систему счисления.
Для это сначала переведем в 10чную: 31₅ = 3∙5¹+1∙5⁰ = 15+1 = 16
А потом уже в 7-чную: 16÷7=2 остаток 2.
Получается 31₅=22₇
Значит ,равенство верно.
б) Переведем 11₈ в троичную систему счисления.
11₈ = 1∙8¹+1∙8⁰ = 8+1 = 9 (переводим в десятичную)
9:3=3 остаток 0
3:3=1 остаток 0
11₈ в троичной равен 100₃, следовательно,
равенство 11₈ не равен 21₃
3) a)3*x²+0*x¹+2*x⁰=149
3*x²+2=149
3*x²=147
x²=49
x=7
б)1*x⁴+0*x³+0*x²+0*x¹+2*x⁰=83
x⁴+2=83
x⁴=81
x=3
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i,n,k,p:byte;
begin clrscr; Randomize;
writeln('n:');readln(n);
writeln('a:');readln(p);
for i:=1 to n do
begin
write('элемент ',i,' : ');
readln(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
k:=0;
for i:=1 to n do
begin
if a[i] > p then inc(k);
end;
writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.