Ввод: x ^ y С/П.
П1 -> П0 x=0 07 0 С/П ИП1 x=0 12 0 С/П
ИП1 x>=0 22 ИП0 x>=0 20 1 С/П 2 С/П
ИП0 x<0 27 3 С/П 4 С/П
С учётом моментов, когда точки лежат на осях.
1) 361*2=722<=<=7
Ответ: *2<=<=
2) 497<=49*2=98*2=196*2=392*2=784<=<=7*2=14
Ответ: <=*2*2*2*2<=<=
3)167*2*2*2*2*2=5344<=<=<=5*2=10
Ответ: *2*2*2*2*2<=<=<=*2
Дексобайт, Теробайт, Гигобайт, мегабайт, килобайт, байт,бит
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(15,1,100); a.Println;
var k:=0;
for var i:=0 to 14 do
if a[i] mod 7=0 then begin
k+=1; WritelnFormat('A[{0}]={1}',i+1,a[i])
end;
if k=0 then Writeln('Заданных элементов в массиве нет')
end.
<u>Пример</u>
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56