Var a: array[1..1000] of integer; n,i,s: integer; begin write('write size array: '); readln(n); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do if a[i] mod 2=0 then s: =s+sqr(a[i]); writeln(s); readln; readln end.
Спасибо
Ответ дал: Гость
запускаем одновременно часы в 8 минут и 3 минуты - (8 и 3). после окончания 3-х минут переворачиваем их и продолжаем у нас будет (5 и 3). после окончания вторых 3-х минут в восьмиминутных часах останется 2 минуты (2 и 3). снова запускаем 3-х минутные чесы вместе с оставшимися 2-х минутными. после окончания 2 минут в восьмиминутныхъ часах в 3-х минутных останется 1 минута (0 и 1). начиная с этой минуты запустив 2 раза трехминутные часы получаем искомые 7 минут.
Ответ дал: Гость
200: 2
100|0
50|0
25|0
12|1
6|0
3|0
1|1
0|1
200₁₀=11001000₂
489: 2
244|1
122|0
61|0
30|1
15|0
7|1
3|1
1|1
0|1
489₁₀=111101001₂
543: 2
271|1
135|1
67|1
33|1
16|1
8|0
4|0
2|0
1|0
0|1
543₁₀=1000011111₂
950: 2
475|0
237|1
118|1
59|0
29|1
14|1
7|0
3|1
1|1
0|1
950₁₀=1110110110
1025: 2
512|1
256|0
128|0
64|0
32|0
16|0
8|0
4|0
2|0
1|0
0|1
1025₁₀=10000000001₂
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Подсчитать сумму квадратов четных элементов. pascal !...
Популярные вопросы