блок схемы кстати нет, так что не обессудь
1024
x=0
x=x+1
x=x+1
x=x*2 (9раз)
500
x=0
x=x+1
x=x+1
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x*2
x=x+1
x=x*2
x=x*2
Можно более корректно описать ситуацию?
//Sorry I know only C++ language
#include<iostream>
using namespace std;
int main(){
<span> char a,b,c,d,a2,b2,c2,d2;</span><span>
cin>>a>>b>>c>>d;
</span><span> a2=a-48;
</span><span> b2=b-48;
</span><span> c2=c-48;</span><span>
d2=d-48;
</span><span> cout<<(a2+b2+c2+d2)%4;</span>
return 0;}<span>
</span>
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,20,84);a.PrintLn;
Writeln(a.Where(t -> (t.isOdd)and(t mod 3 = 0)and(t mod 10 <> 0)).Count);
end.
Пример:
64 64 76 31 21 81 53 30 58 38 66 69 57 65 41
4
1. х=40, у=10
2. х=20, у=20
3. х=50, у=20
4. х=56, у=30
5. х=60, у=28
6. х=60, у=40
7. х=70, у=40
8. х=70, у=50
9. х=80, у=50
10.х=80, у=40
11х=90, у=40
12. х=90, у=28
13.х=100, у=28
14. х=100, у=20
15. х=110, у=20
16. х=110, у=10
17. х=40, у=10