Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>
Var x1,y1,x2,y2:integer;
p1,p2:real;
b:boolean;
begin;
readln(x1);
readln(y1);
readln(x2);
readln(y2);
p1:=sqrt(sqr(x1)+sqr(y1));
p2:=sqrt(sqr(x2)+sqr(y2));
if p1>p2 then b:=true else b:=false;
writeln(b);
end.
Насколько я понял ваше условие, вот код (немножко на скорую руку, но рабочий!):
#include <cstdio>
#include <iostream>
using namespace std;
int main(){<span>
int n, kolvo=0;//заводим переменную n и переменную kolvo, отвечающую за количество купюр</span><span>
cout << "Enter n:\n";</span><span> cin >> n;//сканируем эту переменную</span><span>
if (n > 64){
</span><span> kolvo += n / 64;</span><span>
n %= 64;</span><span>
}</span><span>
if (n > 32){</span><span>
kolvo += n / 32;</span><span>
n %= 32;</span><span>
}</span><span>
if (n > 16){
</span><span> kolvo += n / 16;</span><span>
n %= 16;</span><span>
}
</span><span> if (n > 8){
</span><span> kolvo += n / 8;</span><span>
n %= 8;</span><span>
}
</span><span> if(n > 4){
</span><span> kolvo += n / 4;</span><span>
n %= 4;</span><span>
}
</span><span> if (n > 2){
</span><span> kolvo += 1;
</span><span> n %= 2;</span><span>
}</span><span>
if (n == 1){
</span><span> kolvo += 1;
</span><span> }
</span><span> cout <<"There's the number:\n"<< kolvo;
</span><span> return 0;
</span><span>}
P.S.:думаю понятно, почему последние два if' а отличаются, но если остались вопросы, то пишите!
</span>
Ответ:
№1
- 1001010 в 2
- 171 в 8
- 101 в 16
№2
- 5 единиц
№3
- 1 ноль
№4
- 144 в 8
Подробное решение на фотографиях